Question

Решите любые сколько знаете от 3х и более . Просто запишите список команд в ответе или скриншот в паскале , главное чтоб я видел как записать.

Answer 1

1.
var x,y:real;
begin
write('x = ');
readln(x);
y:=7*x+5;
writeln('y = ',y);
end.

Пример:
x = 9
y = 68

5.
var a,b,c:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end.

Пример:
a = 3
b = 4
c = 5

10.
var a,b,c,h,p:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('h = ');
readln(h);
c:=sqrt(((a-b)/2)*((a-b)/2)+h*h);
p:=a+b+2*c;
writeln('p = ',p);
end.

Пример:
a = 12
b = 6
h = 4
p = 28