Журналист
Vaezesmak 3 ноября 2019 в 02:32

Напишите пожалуйста программы к данным блок схемам

Первая:

П0 lt;-gt; П1 ИП1 ИП0 + П1 ИП0 2 - П0 x=0 03 С/П
Вторая:

П0 lt;-gt; П1 ИП1 ИП0 - П1 ИП0 2 - П0 ИП1 - xlt;0 03 С/П

1. Программа на паскале (возможно зацикливание):
var x,y: integer;
begin
writeln(x, y:);
readln(x,y);
repeat
y:=y+x;
x:=x-2;
until x=0;
writeln(x = ,x, y = ,y);
end.

Пример:
x, y:
10 15
x = 0 y = 45

2.
var x,y: integer;
begin
writeln(x, y:);
readln(x,y);
repeat
y:=y-x;
x:=x-2;
until xgt;y;
writeln(x = ,x, y = ,y);
end.

Пример:
x, y:
27 41
x = 25 y = 14
Компьютеры и вычисления
Для комментирования необходимо зарегистрироваться на сайте