Информатика, опубликовано 2018-08-22 22:59:09 by Гость
Введите с клавиатуры 8 положительных целых чисел. Определите, сколько изних делится на 3 и оканчивается на 4. Программа должна вывести одно число:количество чисел, кратных 3 и оканчивающихся на 4.
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на