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