Создаёшь кнопку (CommandButton),кликаешь по ней 2 раза,и вставляешь туда вот такое между 'Private sub и End' :
Shell("shutdown -s")
Пример:
Private Sub Command_Click()
Shell("shutdown -s")
End Sub
Var a,b,c,d:integer;
begin
read (a,b);
if a>b then begin c:=a; d:=b;end
else c:=b; d:=a;end;
writeln(c,d);
end.
Это невозможно, ибо при A=0, B=1 как при конъюнкции так и при дизъюнкции высказывание будет ложным.
39. У меня тоже КИТ даю 100% Я с учительницей делала