Написать программу, которая обеспечивает ввод последовательности чисел. Количество чисел в последовательности неизвестно. Программа должна находить количество чисел, которое кратно 3 и заканчивается на 6.

Question

Информатика

Полинария

5 октября, 16:33

Написать программу, которая обеспечивает ввод последовательности чисел. Количество чисел в последовательности неизвестно. Программа должна находить количество чисел, которое кратно 3 и заканчивается на 6.

+3

Ответы (1)

Знаете ответ на вопрос?

Светуня · Answer 1

Program n1;

var a, k: integer;

begin

readln (a) ;

k:=0;

while a0 do

begin

if (a mod 3=0) and (a mod 10=6) then

k:=k+1;

readln (a) ;

end;

write (k) ;

end.