Программа по изучению котов ©Д.Ю. Соловьев

28/5/2017

Данное программко подсчитывает, сколько раз подряд котик нажал на какой-либо символ (цифру, букву) на клавиатуре:)
program KAT;
var      N: inteyer;
             A: char;
begin  N:=0;
             repeat;
             read(A);
             if A= 1 then N:=N+1;
             until A 1 ;
             write ln(N);
end.
©Д.Ю. Соловьев, наш лектор по Алгоритмам и алгоритмическим языкам.

Оставить комментарий

Емейл не публикуется. Обязательные поля помечены символом *