Введите с клавиатуры 8 положительных целых чисел. Определите, сколько из них делятся на 3 и при этом заканчиваются на 4. Программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 4. учитель говорит, что надо НЕ ТАК, а по другому, ибо мы такое не проходили еще: ответ 5, 0/5 19 Участник Знаний var b, I:integer; a:array [1..8] of integer; begin writeln('введите числа'); for I:=1 to 8 do read(a[I]); b:=0; for I:=1 to 8 do if (a[I]mod3=0) and (a[I]mod10=4) then b:=b+1; writeln(b); readln; end.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Запрос: <=90 Какие результаты можно получить?
Автор: boykovandrew6663
какие формулы и как их применить в столбцах оплата и долг
Автор: Yurevna419
Дана цепочка символов пол.какая цепочка символов проучится, если к данной цепочке применить алгоритм дважды
Автор: Barabanov Gerasimenko
program Chernovik;
var i,a,k:integer;
begin
k:=0;
for i:=1 to 8 do
begin
write('Введите ', i,' число: ');
readln(a);
if (a mod 3=0) and (a mod 10=4) then k:=k+1
end;
writeln('Количество чисел, кратных 3 и оканчивающихся на 4, равно: ',k)
end.
Объяснение:
Без массива, просто вводим число и сразу проверяем его на соответствие условию, если подходит, то увеличиваем переменную для результа на 1, в конце вывод результа.