Ввести трёхзначное число и вывести трёхзначное или не трёхзначное решать через Паскаль

AlexGrehova AlexGrehova    2   12.03.2021 10:55    0

Ответы
Fara228229 Fara228229  11.04.2021 10:59

var

x, y: integer;

a: string;

begin

write('Введите число: ');

readln(x);

str(x, a);

y := Length(a);

if y = 3 then

writeln('Это трёхзначное число!')

else

writeln('Это не трёхзначное число! ');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика