var a,b,c,d:integer;
begin
writeln('Напиши дату основания Санкт-Питербурга(день месяц и год)');
writeln('день');
read(a);
writeln('месяц');
read(b);
writeln('год');
read(c);
if (a=27) and (b=5) and (c=1703) then
writeln('Молодец всё правильно')
else
writeln('Ты где то допустил ошибку');
end.
Я думаю наиболее логичны ответ а и г
почему не б, как ответили в коментариях, так как автоматический запрос на подтверждение команды не подразумевает пароль, а лишь повторить согласие на команду, чего не сможет сделать робот - техническая разведка, и что не будет делать человек , если нажал случайно на команду
Решение смотри во вложении
Ответ:
var
ar: array [1..20] of Integer;
a, b, i: Integer;
begin
Randomize;
for i := Low (ar) to High (ar) do begin
ar [i] := Random (47) - 12;
Write (ar [i], ' ');
end;
WriteLn;
Write ('A, B = ');
ReadLn (a, b);
for i := Low (ar) to High (ar) do
if (ar [i] >= a) and (ar [i] <= b) then
Write (ar [i], ' ');
ReadLn;
end.
Формула для 100 грамм =D3*0,1 и потом просто растяни и все копируется, надеюсь это умеешь. Для 500 г =D3*0,5 ,для 1,кг =D3*1,5 для 2кг =D3*2
Если сумма всех ячеек то =СУММ(Диапазон ячеек) также и с итого =ИТОГО(диапазон ячеек)