Дано натуральное число верно ли что это число четырехзначное

в паскале программу написать

Question

Информатика

Линка

17 января, 00:07

Дано натуральное число верно ли что это число четырехзначное

в паскале программу написать

+4

Ответы (1)

Знаете ответ?

Петяй · Answer 1

Var k, x: integer;

begin

readln (x) ;

while x0 do

begin

inc (k) ;

x:=x mod 10;

end;

if k=4 then write ('верно') else write ('неверно') ;

end.

Дано натуральное число верно ли что это число четырехзначноев паскале программу написать

Дано натуральное число верно ли что это число четырехзначное

в паскале программу написать