Регистрация
FlacJK
27.09.2022 10:39
Информатика
Есть ответ 👍

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

116
486
Посмотреть ответы 2

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

Pooster
Pooster
4,8(91 оценок)
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.
denisshirockow
denisshirockow
4,4(9 оценок)
Слово:

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