Question

Введите с клавиатуры 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.

Answer 1

Ответ:

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, в конце вывод результа.