Автор: Anton

Anton — Thu, 10 Dec 2015 03:55:45 +0000

В ответ на olegst1975. Поправил и добавил в шапку.

Автор: olegst1975

olegst1975 — Wed, 09 Dec 2015 11:58:49 +0000

Здесь потеряно «равно»..

while a>=b do

1	while a>=b do

Автор: Юрий

Юрий — Mon, 13 Apr 2015 03:55:48 +0000

program while2;
var
a,b,n: real;
begin
n:=0;
writeln ('Ввести числа a,b');
readln (a,b);
while a>b do 
  begin
  a:=a-b;
  n:=n+1
  end;
writeln('Результат деления на цело: ',n);
writeln('Остаток от деления: ',a);
end.

program while2;

var

a,b,n: real;

begin

n:=0;

writeln ('Ввести числа a,b');

readln (a,b);

while a>b do

begin

a:=a-b;

n:=n+1

end;

writeln('Результат деления на цело: ',n);

writeln('Остаток от деления: ',a);

end.

Комментарии: Решаем задачи Абрамян на Паскале. While3

Автор: Anton

Автор: olegst1975

Автор: Юрий