- Код: Выделить всё
program n;
var
a,b,c,d:integer;
begin
write ('Skolko deneg');
read(a);
write ('Stoimost odoi edenici tovara');
read(b);
d:=a div b;
c:=a mod b;
writeln ('Kolichestvo pokypok ',d);
writeln('Sdacha',c);
readln;
readln;
end.
Модератор: Модераторы
program n;
var
a,b,c,d:integer;
begin
write ('Skolko deneg');
read(a);
write ('Stoimost odoi edenici tovara');
read(b);
d:=a div b;
c:=a mod b;
writeln ('Kolichestvo pokypok ',d);
writeln('Sdacha',c);
readln;
readln;
end.
student21 писал(а):в лазарусе код есть а с формой что то проблемы
Вернуться в Помощь за вознаграждение
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0