Предмет: Информатика,
автор: mm2m
Помогите составить листинг программы в паскале
Ввести файл F из 11 элементов. Определить в нём количество тех
элементов, которые при делении на 3 дают остаток 2.
Ответы
Автор ответа:
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
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
Автор ответа:
0
ошибка вводавывода 6 строчки
Автор ответа:
0
Ваша версия Паскаля?
Автор ответа:
0
Если она более поздняя, чем в ответе, обновитесь. Так же проверьте наличие файла text.txt в директории.
Автор ответа:
0
Или другой вариант, когда пользователь из программы вводит значения:
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Английский язык,
автор: ulusovaadel
Предмет: Математика,
автор: proarta12345
Предмет: Математика,
автор: ПринцессаАлина