ПОМОГИТЕ ПОЖАЛУЙСТА!!! 1.Запишите значение переменной s, полученное в результате работы...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!! 1.Запишите значение переменной s, полученное в результате работы следующей программы. program Pr9; var s, k: integer; begin s:=0; for k:=3 to 7 do s:=s+6; write (‘s=”,s) end 2.Составить программу на языке паскаль. Дано целое число x. Если x – отрицательное, то вычислить x2 , если x – положительное, то вычислить √.

Answer 1

1) S=30;

2)

var x: integer;

begin

readln(x);

if x>=0

then writeln(sqrt(x):0:2)

else writeln(sqr(x));

end.