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.