Через ПИТОН
1) Определить, является ли число a делителем числа b?
2)Дано двузначное число. Определить, является ли сумма его
цифр двузначным числом.
3)Даны два целых числа: A, B. Проверить
истинность высказывания: «Хотя бы одно из чисел A и
B нечетное».
4)Даны три целых числа: A, B, C. Проверить истинность
высказывания: «Каждое из чисел A, B, C положительное»

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

2^i = 32, i = 5 бит приходится на 1 символ

2^i = 64, i = 6 бит приходится на 1 символ

т.к. количество символов в тексте одинаковое, то 6 : 5 = 1,2

информационный объем второго текста в 1,2 больше, чем у первого текста.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

* 60 / 16 =