Var r, i: integer;
begin
write('r = ');
readln(r);
for i := r downto 1 do
if Tan(i) < 0 then
break;
write(i);
<span>end.</span>
123 будет ответ решение думаю смысла нету записывать бо я его устно сделал
Ответ:3) 90 , так как при i=11 A[i]>100 и следовательно B[i]-будет положительным
Считаем количество символов в парольном алфавите
10 (цифры) + 11 строчных + 11 прописных = 32 символа
5 бит на символ (2^5 = 32)
15 символов * 5 бит = 75 бит, при записи пароля округляем вверх до байта, получим 10 байт.
30 паролей * 10 байт = 300 байт
программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0
program 198;
var x,y: real;
begin;
readln (x; y);
if x>0 and y>0 then
writeln (1 chetvert);
end;
if x<0 and y>0 then
writeln (2 chetvert);
end;
if x<0 and y<0 then
writeln (3 chetvert);
end;
if x>0 and y<0 then
writeln (4 chetvert);
end;
end.