Предмет: Информатика, автор: mm2m

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

Ответы

Автор ответа: Gleb1Kosyrev
0
//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

Автор ответа: mm2m
0
ошибка вводавывода 6 строчки
Автор ответа: Gleb1Kosyrev
0
Ваша версия Паскаля?
Автор ответа: Gleb1Kosyrev
0
Если она более поздняя, чем в ответе, обновитесь. Так же проверьте наличие файла text.txt в директории.
Автор ответа: Gleb1Kosyrev
0
Или другой вариант, когда пользователь из программы вводит значения:
Автор ответа: Gleb1Kosyrev
0
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.
Похожие вопросы