Сделайте на паскаль без while, а с циклом for пж.
Сделайте на паскаль без while, а с циклом for пж.
Напишите программку, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. Программа получает на вход целые числа, количество введённых чисел безызвестно, последовательность чисел заканчивается числом 0 (0 признак окончания ввода, не заходит в последовательность). Количество чисел не превосходит 1000. Введённые числа по модулю не превосходят 30 000. Программка обязана вывести два числа: длину последовательности (завершающий 0 не учитывается) и количество нечётных чисел, кратных 3.
Ответ:
Объяснение:
var a,i,kol,s:integer;
begin
writeln('Введите последовательность целых чисел, 0 - все введены');
s:=0;
kol:=0;
for i:=1 to 1000 do
begin
readln(a);
if alt;gt;0 then
begin
kol:=kol+1;
if (a mod 2lt;gt;0) and (a mod 3=0) then s:=s+1; end
else break;
end;
writeln('Введенных чисел ',kol);
writeln('Нечетных чисел кратных трем ',s);
readln;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.