965 монет за элементарное дело

[Денчик]

Денчик отредактировано

продам любые нычки

кто не слышал ,что такое паскаль не флудите
нужно написать элементарную прогу

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

[Google]

Google отредактировано @ Денчик

Поисковая система

Могу написать, но 965 монет маловато. го 5к

[Денчик]

Денчик отредактировано @ Google

продам любые нычки

за 2минутную херню?

[Google]

Google отредактировано @ Денчик

Поисковая система

угу.

[Денчик]

Денчик отредактировано @ Google

продам любые нычки

972 и+ в репу

[IloveGuzel]

IloveGuzel отредактировано IloveGuzel @ Денчик

Профессионал

var k, x: integer;
begin
 readln(x);
 while x<>0 do
 begin
 inc(k);
 x:=x mod 10;
 end;
 if k=4 then write('верно') else write('неверно');
end.