Question

решите плезе срочно​

Answer 1

Ответ:

Язык: Pascal

номер 1)

program z1;

var a, b: integer;

begin

a:= 10;

b:= 4;

if a+b>7 then

begin

b:= b+6;

a:= a+b;

end;

a:= 2*a-b;

end.

номер 2)

program z2;

var x, y, m, k: integer;

begin

readln(x);

read(y);

if x>y then m:= 5*(x+y);

if x<y then m:= (x+y)/2;

write('Переменная m равна ', m);

k:= x div y;

write ('Переменная k равна ', k)

end.

это была программа общего вида

номер 2 под цифрой 1)

program z2;

var x, y, m, k: integer;

begin

x:= 10;

y:= 3;

if x>y then m:= 5*(x+y);

if x<y then m:= (x+y)/2;

write('Переменная m равна ', m);

k:= x div y;

write ('Переменная k равна ', k)

end.

номер 2 под цифрой 2)

program z2;

var x, y, m, k: integer;

begin

x:= 5;

y:= 8;

if x>y then m:= 5*(x+y);

if x<y then m:= (x+y)/2;

write('Переменная m равна ', m);

k:= x div y;

write ('Переменная k равна ', k)

end.