Нет возможсти проверить. Если неправильно - напиши.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.
Вообще-то в первую очередь подразумеваются электронные таблицы
Все остальные элементы есть аспектами этих таблиц
Да.
13€R, потому оно является выражениям высказывания.
Var a:array[1..10] of integer;
i,p:integer;
begin
p:=1;
for i:=1 to 10 do begin
a[i]:=random(-10,10);
if not odd(i) then p*=a[i];
write(a[i]:3);
end;
writeln;
writeln(p);
<span>end.</span>
Для записи одного из 4 символов (Р, О, Б, Т) требуется log(2)4 = 2 бита; для записи пароля - 10*2 = 20 бит = 20/8 байт ≈ 3 байта.
Для записи 30 паролей потребуется 30*3 байт = 90 байт.