Помогите составить листинг программы в паскале
Ввести файл F из 11 элементов. Определить в нём количество тех
элементов, которые при делении на 3 дают остаток 2.
//Pascal ABC.NET v3.1 сборка 1172
Var
f:text;
i,k,a:integer;
begin
assign(f,text.txt);
reset(f);
for i:=1 to 11 do
begin
read(f,a);
if a mod 3=2 then inc(k);
end;
close(f);
writeln(k);
end.
Данные в файле text.txt:
1 2 3 4 5 6 7 8 9 10 11
Пример вывода:
4
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
