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

Answer 2

Программа, представленная участником, решает задачу правильно. Она считывает 8 чисел с клавиатуры и проверяет каждое число на кратность 3 и окончание на 4. Если число удовлетворяет обоим условиям, то счетчик b увеличивается на 1. В конце программа выводит значение счетчика b, которое и является ответом на задачу.

В данном коде используется массив a для хранения введенных чисел, переменные b и i для счетчиков, а также операторы read и writeln для ввода и вывода данных соответственно.

Решение представленного задания с помощью данного кода выглядит правильным и эффективным.