Паскаль! Введите четырёхзначное число. Определите верно ли, что число тысяч в этом числе меньше, чем число десятков.
Ответы
Ответ дал:
0
Не уверен, что правильно, но всё же
(t - цифра обозначающая разряд тысяч, d -цифра обозначающая разряд десятков)
var a,t,d:integer;
begin
writeln('Введите четырёхзначное число');
read(a);
t:=a div 1000;
d:=(a mod 100) div 10;
if t>d then writeln('Число тысяч больше числа десятков')
else writeln('Число тысяч меньше числа десятков');
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
8 лет назад