В 1 группе Home лишнее,в 2 F1 ,в 3 f12,в 4 просто *
Var
A: integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(A);
A := (A mod 10)*100 + (A div 10);
WriteLn(A);
End.
2 в 20 степени бит=128 Кб
байт- 2 в 3 ст.
кило (1024) - 2 в 10 ст
20-13=7
2 в 7 ст.=128
Итог выше
Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.
В задаче не указан шаг изменения х , допустим он равен 1варX и Y:реальные;начатьх:=1;пока х<=10 делатьначатьy:=1/x-5;writeln(г:8:2);х:=х+1;конца;конец.