Присвоить целой переменной h третью от конца цифру в записи целого положительного числа k

10.10.2013, 19:57. **Показов** 14447. **Ответов** 1

Студворк — интернет-сервис помощи студентам

1. Присвоить целой переменной h третью от конца цифру в записи целого положительного числа k (например: k=130985, то h=9).
2.Написать программу, в результате выполнения которой булевская переменная t получает значение TRUE, если выполняется заданное условие, и FALSE в противном случае (Оператор If не использовать).Введенный символ не является буквой латинского алфавита и символом «_»(подчеркивание);
3.Даны произвольные числа a,b,c. Выяснить существует ли треугольник с такими длинами сторон. Если треугольник существует, то определить является ли он равносторонним ил каким-либо иным.

Комментарий модератора

На будущее - для каждой задачи создавайте отдельную тему, Темы называйте информативно. Таковы правила форума

@ilyadenisovid · 11.10.2013, 06:34

1. Присвоить целой переменной h третью от конца цифру в записи целого положительного числа k (например: k=130985, то h=9).
2.Написать программу, в результате выполнения которой булевская переменная t получает значение TRUE, если выполняется заданное условие, и FALSE в противном случае (Оператор If не использовать).Введенный символ не является буквой латинского алфавита и символом «_»(подчеркивание);
3.Даны произвольные числа a,b,c. Выяснить существует ли треугольник с такими длинами сторон. Если треугольник существует, то определить является ли он равносторонним ил каким-либо иным.
1)

Pascal
1
2
3
4
5
6
7
8
9
10
program test;
var
h, k : integer;
begin
writeln('Введите число k');
readln(k);
h := k mod 1000 div 100;
writeln(h);
readln;
end.

2)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program test2;
var
t : boolean;
k : char;
begin
writeln('Введите символ');
readln(k);
case ord(k) of
65..90 : t := false;
97..122 : t := false;
95 : t := false
else t := true;
end;
writeln(t);
readln;
end.

3)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program test;
var
a, b, c : integer;
t : boolean;
begin
writeln('Введите длины сторон треугольника');
readln(a, b, c);
if ((a + b) > c) and ((a + c) > b) and ((c + b) > a) then t := true
else t := false;
if t then
begin
if (a = b) and (a = c) and (b = c) then writeln('Треугольник равносторонний')
else if (a = b) or (b = c) or (a = c) then writeln('Треугольник равнобедренный')
else writeln('Треугольник обычный');
end
else 
begin
writeln('Треугольника не существует');
readln;
end;
end.

Новые блоги и статьи Все статьи Все блоги /
Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .
Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .	C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .

Опции темы

Присвоить целой переменной h третью от конца цифру в записи целого положительного числа k

Решение