Var n: integer;
begin
writeln('Введите число:');
readln(n);
if n mod 2 =0 then writeln('Это четное число')
else writeln('Это нечетное число')
end.
var
m:integer;
n:real;
begin
n:=120;
m:=0;
while n<150 do
begin
n:=1.02*n;
m:=m+1;
end;
writeln('Ответ: ',m)
end.
16 букв можно закодировать 4-мя битами, т.к. 2^4=16
Файл!Помоему точно незнаю
1)24000
2)1,5
если неоштбаюсь