Файлы пользователя.

[Veronika_13]

На празднике лунных коротышек победителям соревнований в качестве призов были вручены одинаковые наборы подарков. Незнайка не получив подарка решил вручить приз себе сам. На его вопрос «сколько стоит один подарок?», Знайка ответил, что при покупке всех подарков в магазине с суммы К рублей он получил сдачу в А рублей. Определить достаточно ли для приобретения подарка имеющейся у Незнайки суммы S. Значение брались из сохранённого файла и сохранялся вывод туда же.
код есть:

program zadacha5;
var
a,k,s,i,z,x,kol :integer;
begin
i:=0; z:=1; kol:=0;
writeln('vvedite kolichestvo deneg y Znayki k');
readln (k);
writeln('vvedite  kolichestvo sdachi y Znaykia a');
readln (a);
writeln('vvedite kolichestvo deneg y Neznayki s');
readln (s);
x:=k-a;
while z<>0 do
begin
kol:=kol+1;
a:=a+1;
z:=x mod a;
end;
writeln(kol);
if s>=a
then
writeln('Neznayka mozet kupit podarok za ', s ,'p')
else
writeln('Neznayka NE mozet kupit podarok ', s,'p');
readln;
end.
пыталась сделать с файлом, вот что получилось но не идёт код. Подскажите что исправить???:
program zadacha5;
var
a,k,s,i,z,x,kol :integer;
o:text;
begin
assign(o,'файл.txt');
reset(o);
read( o,a,k,s);
 close(o);
i:=0; z:=1; kol:=0;
x:=k-a;
while z<>0 do
begin
kol:=kol+1;
a:=a+1;
z:=x mod a;
end;
assign(o,'файл.txt');
rewrite(o);
writeln(o, kol);
if s>=a
then
write(o,'Neznayka mozet kupit podarok za ', s ,'p')
else
write(o,'Neznayka NE mozet kupit podarok ', s,'p');
close(o);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Veronika_13]

паскаль АВС. На празднике лунных коротышек победителям соревнований в качестве призов были вручены одинаковые наборы подарков. Незнайка не получив подарка решил вручить приз себе сам. На его вопрос «сколько стоит один подарок?», Знайка ответил, что при покупке всех подарков в магазине с суммы К рублей он получил сдачу в А рублей. Определить достаточно ли для приобретения подарка имеющейся у Незнайки суммы S. Значение брались из сохранённого файла и сохранялся вывод туда же.
код есть:
program zadacha5;
var
a,k,s,i,z,x,kol :integer;
begin
i:=0; z:=1; kol:=0;
writeln('vvedite kolichestvo deneg y Znayki k');
readln (k);
writeln('vvedite kolichestvo sdachi y Znaykia a');
readln (a);
writeln('vvedite kolichestvo deneg y Neznayki s');
readln (s);
x:=k-a;
while z<>0 do
begin
kol:=kol+1;
a:=a+1;
z:=x mod a;
end;
writeln(kol);
if s>=a
then
writeln('Neznayka mozet kupit podarok za ', s ,'p')
else
writeln('Neznayka NE mozet kupit podarok ', s,'p');
readln;
end.
пыталась сделать с файлом, вот что получилось но не идёт код. Подскажите что исправить???:
program zadacha5;
var
a,k,s,i,z,x,kol :integer;
o:text;
begin
assign(o,'файл.txt');
reset(o);
read( o,a,k,s);
close(o);
i:=0; z:=1; kol:=0;
x:=k-a;
while z<>0 do
begin
kol:=kol+1;
a:=a+1;
z:=x mod a;
end;
assign(o,'файл.txt');
rewrite(o);
writeln(o, kol);
if s>=a
then
write(o,'Neznayka mozet kupit podarok za ', s ,'p')
else
write(o,'Neznayka NE mozet kupit podarok ', s,'p');
close(o);
end.

[BDA]

Не могу понять условия. Было денег - К. Сдача - А. Всего потратили на подарки - К-А. У Незнайки - S. Но неизвестно, сколько всего подарков было куплено, чтобы выяснить стоимость 1 подарка.

[Veronika_13]

что, что, а вот этого сказать не могу. Преподаватель так сказала сделать, я сделала задачу, показала всё устроило, только надо сделать что бы вводимые данные читались из файла и вывод сохранялся в файл

[Veronika_13]

вот вроде сделала, но не работает. в чём проблема?
program zadacha5;
var
a,k,s,i,z,x,kol :integer;
f1,f2:text;
begin
Assign(f1, 'input.txt');
Assign(f2, 'output.txt');
reset(f1);
rewrite(f2);
read(f1,a,k,s);
i:=0; z:=1; kol:=0;
x:=k-a;
while z<>0 do
begin
kol:=kol+1;
a:=a+1;
z:=x mod a;
end;
writeln(f2,kol);
if s>=a
then
writeln(f2, 'Neznayka mozet kupit podarok za ', s ,'p')
else
writeln(f2, 'Neznayka NE mozet kupit podarok ', s,'p');
readln;
close(f1);
close(f2);
end.

[BDA]

1) Внимание на порядок считывания read(f1,a,k,s); (в первой программе другой порядок)
2) Убрать readln; - не нужен

UPD Пожалуйста

[Veronika_13]

СПАСИБО!!!!!