Регистрация
kolotilka23
01.11.2021 05:42
Информатика
Есть ответ 👍

Який оператор в оператором циклу з
лічильником в Lazarus?
Repeat-until
For-to-do
If-Then-else
While-do​

224
294
Посмотреть ответы 1

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

матеки
матеки
4,4(86 оценок)

Pascal:

program p1;

var k, a, b, c: integer;

begin

k:=0;

writeln ('Введите числа');

readln(a);

if a div 10 > 0 then k:=k+1;

readln(b);

if b div 10 > 0 then k:=k+1;

readln(c);

if c div 10 > 0 then k:=k+1;

writeln ('Количество двузначных чисел: ', k);

readln;

end.

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