Задание 10 Параграф 20 ГДЗ Семакин 8 класс (Информатика)

Ниже вариант решения задания из учебника Семакин, Залогова 8 класс, Просвещение:

10. Составьте программы на Паскале для решения задач № 6-9 из заданий к предыдущему параграфу. При этом отмените ограничения на количество операций в арифметическом выражении, сформулированные в условиях задач.

program y_6;

var

a, b, c, d, m, n: integer;

begin

write(taskВведи через пробел a,b,c,d > > task);

readln(a, b, c, d);

m := a * d + b * c;

n := b * c;

writeln(taska/b+c/d =task, m / n:5:2);

end.

program y_7;

var

x, y: integer;

begin

write(taskВведи x > > task);

readln(x);

x := x * x;

y := (1 - x + 5 * x * x);

y := y * y;

writeln(tasky =task, y);

end.

y=x8

program y_8_8;

var

x, y: integer;

begin

write(taskВведи x > > task);

readln(x);

y := x * x;

y := y * y;

y := y * y;

writeln(tasky =task, y);

end.

y=x10

program y_8_10;

var

x, y: integer;

begin

write(taskВведи x > > task);

readln(x);

x := x * x;

y := x * x;

y := y * y * x;

writeln(tasky =task, y);

end.

y=x15

program y_8_15;

var

x, y: integer;

begin

write(taskВведи x > > task);

readln(x);

y := x * x;

y := y * y * x;

y := y * y * y;

writeln(tasky =task, y);

end.

y=x19

program y_8_19;

var

x, y: integer;

begin

write(taskВведи x > > task);

readln(x);

y := x * x;

y := y * y;

y := y * y * x;

y := y * y * x;

writeln(tasky =task, y);

end.

program y_9;

var

a,b,c,t: integer;

begin

write(taskВведи a,b,c > > task);

readln(a,b,c);

t:=a; a:=c; c:=b; b:=t;

writeln(taska=task, a,task b=task,b,task c=task,c);

end.