Предмет: Информатика,
автор: qwerty665
ПОЖАЛУЙСТА!!!!напишите программу которая в последовательности целых чисел определяет количество чисел определяет наименьшее число кратное 3 и оканчивающейся на 6
Ответы
Автор ответа:
0
var a, k: integer;
begin
t:=0;
readln(a);
while a<>0 do begin
if (a mod 2 = 0) and (a mod 6 = 0) then
k := k + 1;
readln(a);
end;
writeln(k)
end.
Интересные вопросы
Предмет: Алгебра,
автор: Sasha038637273
Предмет: Математика,
автор: geometridash0io
Предмет: Другие предметы,
автор: luvlxwur
Предмет: Математика,
автор: alenaholkina5
Предмет: Математика,
автор: Диана2411