напишите программу по блок схеме

Напишите программку по блок схеме

Задать свой вопрос
1 ответ

program raf105;

var x,y,S: integer;

begin

write('Ввод: ');

readln(x,y);

if xgt;y then

 begin

   x:= x-10;

   y:= y+24;

 end

else

 begin

   x:= x+5;

   y:= y-7;

 end;

S:= x-y;

writeln('Вывод: ',x,' ',y,' ',S);

end.

 

Язык  PascalABC

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт