Регистрация
0katushka0
18.02.2021 02:26
Информатика
Есть ответ 👍

Написать программу для решения : сравнить первую и последнюю цифру натурального четырёхзначного числа n. на экране должен появиться запрос на ввод числа и результат решения , например 1) вводится число 1475, выводится «первая цифра меньше последней: 1< 5». 2) вводится число 3452, выводится «первая цифра больше последней: 3> 2». 3) вводится число 7457, выводится «первая цифра равна последней: 7=7»

193
285
Посмотреть ответы 2

Ответы на вопрос:

Oliichka
Oliichka
4,6(97 оценок)

var n: integer;

begin

write('введите 4-х значное число: ');

readln(n);

if n div 1000 = n mod 10 then write('первая цифра равна последней: ',n div 1000,'=',n mod 10)

else if n div 1000 > n mod 10 then write('первая цифра больше последней: ',n div 1000,'> ',n mod 10)

else write('первая цифра меньше последней: ',n div 1000,'< ',n mod 10)

end.

ogannisyan2001
ogannisyan2001
4,4(98 оценок)
Var a,s,i,n: integer; begin; randomize; readln(n); writeln('false array: '); for i: =1 to n do begin; s: =random(-10,10); writeln(s); if s< 0 then inc(a); end; writeln('result: ',a); end.

Популярно: Информатика