<span>If (a>=10) and (a<=99)
then begin
writeln (a,'-двузначное число');
writeln ('его квадрат=', sqr(a));
end
else (a,' не является двузначным числом');</span>
Для кодирования 7 различных символов потребуется
бита.
Если пароль состоит из 14 символов, то для него потребуется 14х3=42 бита.
Но, поскольку, пароль занимает целое число байт, потребуется 42/8 ≈ 6 байт
40 таких паролей займут объем 40х6=240 байт.
Ответ: 240 байт
Var a,s:integer;
begin
writeln('Введите числа: ');
s:=0;
repeat
readln(a);
if (a mod 4=0) and (a>99) and (a<1000) then s+=1;
until a=0;
writeln(s);
end.
Первая проверка a < b = 100< 12 - нет, уходим по стрелке справа
Вторая проверка b<c = 12 < 100 - да, уходим по стрелке слева
d:=b то есть d:= 12
вывод d = 12
Ответ: 12.