Question

Помогите составить листинг программы в паскале
Ввести файл F из 11 элементов. Определить в нём количество тех
элементов, которые при делении на 3 дают остаток 2.

Answer 1

//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

Answer 2

ошибка вводавывода 6 строчки

Answer 3

Ваша версия Паскаля?

Answer 4

Если она более поздняя, чем в ответе, обновитесь. Так же проверьте наличие файла text.txt в директории.

Answer 5

Или другой вариант, когда пользователь из программы вводит значения:

Answer 6

Var
f:text;
i,k,a:integer;
begin
assign(f,'text.txt');
rewrite(f);
for i:=1 to 11 do
begin
read(a);
if a mod 3=2 then inc(k);
write(f,a);
end;
close(f);
writeln(k);
end.