Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
Я думаю наиболее логичны ответ а и г
почему не б, как ответили в коментариях, так как автоматический запрос на подтверждение команды не подразумевает пароль, а лишь повторить согласие на команду, чего не сможет сделать робот - техническая разведка, и что не будет делать человек , если нажал случайно на команду
Create database book
Use book
Create table book
Id auto_increment
'жанр' varchar(60) not null,
'автор' varchar(60) not null,
'год' Int not null,
'коменти' varchar(60) ;
Insert (жанр, автор, год, коменти)
Into(бла, бла, 123, пмио);
В)<span>программа , обеспечивают работу устройства компьютера</span>
В)часть памяти на жестком <span>диске почтового сервера, отведенную для пользователя;</span>