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

Автор: Bronislav

Bronislav — Sun, 10 Dec 2017 17:39:02 +0000

В ответ на Кирилл. while b &lt= a do

Bronislav — Sun, 10 Dec 2017 17:38:27 +0000

В ответ на Кирилл. while b lt= a do

Anton — Mon, 15 Dec 2014 12:52:29 +0000

В ответ на Кирилл. Ок. Поправли.

Кирилл — Fri, 12 Dec 2014 14:48:26 +0000

В ответ на Anton. И задачник ещё десятичные дроби тоже подставляет, так что a и b должны быть real.

Anton — Fri, 12 Dec 2014 11:00:42 +0000

В ответ на Кирилл. Да, так красивше.

Кирилл — Thu, 11 Dec 2014 20:50:32 +0000

uses PT4;
var a,b:real;
var i:integer;
begin
  Task('While2');
read (a,b);
while b<a do
    begin
      a:=a-b;
      i:=i+1;
    end;
write(i);
end.

uses PT4;

var a,b:real;

var i:integer;

begin

Task('While2');

read (a,b);

while b<a do

begin

a:=a-b;

i:=i+1;

end;

write(i);

end.