Напишите программу которая в последовательности целых чисел определяет количество чисел кратных 6 или 11.программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (pascal)

298

308

Посмотреть ответы 2

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

Greninja

Информатика

4,7(54 оценок)

Var a,n: integer; begin n: =0; writeln('вводите числа: '); readln(a); while a< > 0 do begin if (a mod 6 = 0)or(a mod 11 = 0) then n: =n+1; readln(a); end; writeln('n = ',n); end. пример: вводите числа: 45 24 80 55 74 31 0 n = 2