Предмет: Информатика,
автор: Himyamymya
По заданной блок-схеме записать программу для решения задачи:
Приложения:
Ответы
Автор ответа:
2
Решение (Pascal):
var
x, y, S: integer;
begin
read(x, y);
if (x > 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.
----------------------------
Файл решения прикреплён.
Приложения:
Похожие вопросы