Программу которая в последовательности целых - вопрос №8280995 от Татьяна1301 26.06.2020 08:10

Question

Информатика: Программу которая в последовательности целых чисел определяет количество чисел определяет наименьшее число кратное 3 и оканчивающейся на 6

Татьяна1301 · Answer

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....