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

Автор: Jlol

Jlol — Thu, 09 Mar 2017 11:44:54 +0000

uses PT4;var a,b:real;

Anton — Fri, 12 Dec 2014 10:59:50 +0000

В ответ на Кирилл. Не знаю зачем я вводил переменную temp. Наверно такое настроение было :)

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

uses PT4;
var a,b:real;
begin
  Task('While1');
read (a,b);
while b<a do
     a:=a-b;
write(a);
end.

uses PT4;

var a,b:real;

begin

Task('While1');

read (a,b);

while b<a do

a:=a-b;

write(a);

end.