Ответы
Ответ:
Язык: 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.