Создаёшь кнопку (CommandButton),кликаешь по ней 2 раза,и вставляешь туда вот такое между 'Private sub и End' :
Shell("shutdown -s")
Пример:
Private Sub Command_Click()
Shell("shutdown -s")
End Sub
249,6, если мы округляем до сотых, то ответ будет равен 249.60
Program zadacha;
var x:integer;
begin
readln(x);
if (x>=0) and (x<=10) then writeln(x*x)
else writeln(sqrt(x));
end.
Объяснение:
program n_1;
var S:integer;
begin
S:=(sqr(2)+sqr(4)+sqr(6)+sqr(8)+sqr(10));
writeln(S);
end.
sqr(i) - sqr это возведение числа во вторую степень, а i само число