Регистрация
vika13082001
16.08.2021 06:41
Информатика
Есть ответ 👍

абай кунанбайулынын табигат туралы олендерын негызге ала отырып,бумага интернеттен суреттер,акпараттар жинакта

127
162
Посмотреть ответы 1

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

Vera20000
Vera20000
4,6(73 оценок)

var n,a,k: integer;

begin

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

readln(n);

a: =n;

while a> 0 do

begin

k: =k+1;

a: =a div 10

end;

if k=4 then

begin

a: =n;

write ('число четырёхзначное, записанное справа налево: ');

while a> 0 do

begin

write (a mod 10);

a: =a div 10

end

end

else write ('число не четырёхзначное');

end.

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