Macedonia, FYR MKD
Population, male 1041429
Population, female 1041731
1041731-1041429 = 302
Республика Македония
Все верно. Но лучше использовать заместо цикла while, цикл for. И не нужна запись str, и.к. Изначально ужевводится в строковом виде
Var
n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(n);
if n>max then max:=n;
if n<min then min:=n;
end;
writeln('Самый высокий ',max);
writeln('Самый низкий ',min);
end.
Считаем количество символов в парольном алфавите
10 (цифры) + 11 строчных + 11 прописных = 32 символа
5 бит на символ (2^5 = 32)
15 символов * 5 бит = 75 бит, при записи пароля округляем вверх до байта, получим 10 байт.
30 паролей * 10 байт = 300 байт
Var n:longint;
c:real;
begin
write ('N = ');
readln(n);
if (n mod 2 = 0) and (n>0) then c:=n/4 else
if (n mod 2 = 0) and (n<0) then c:=n*5 else
if (n mod = 1) then c:=sqr(n);
write (c:0:2);
end.