Решение 1-й задачи:
//PascalABC.Net
//NaaMan
var
i, n : integer;
begin
i := 0;
repeat
write('Введите число > ');
readln(n);
if (n > 0) then
if (n mod 2 = 0) then
if (n mod 3 = 0) then i := i + 1;
until (n = 0);
writeln('Количество чётных чисел, кратных 3: ', i)
end.
Для решения второй задачи нужно заменить (n mod 2 = 0) на (n mod 2 = 1) и (n mod 3 = 0) на (n mod 7 = 0).
|AB CD
00 |1 1
01 |1 1
10 |1 1
11 |1 3
1+1+1+3 = 6
Ответ : 6
8775*8=70200 бит
2 в 6 степени = 64, значит 1 символ = 6 битам.
70200/6 = 11700 символов
11700/6 станиц/30 строк = 65 символов.
var
i,s:integer;
Begin
s:=1;
for i:= 1 to 15 do
if i mod 2=1 then s:=s*i*i;
writeln(s);
End.