//PascalABC.Net 3.1 сборка 1200
//написано в стиле обычного паскаля, должно работать
var
number: integer;
sum, sum_all, k: integer;
begin
repeat
write('Элемент последовательности => ');
readln(number);
if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;
if (number <= 100) then k := k + 1;
sum_all := sum_all + number;
until number = 0;
writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);
writeln('Сумма всех = ', sum_all);
writeln('Кол-во чисел, которые не больше 100 = ', k);
end.
//PascalABC.Net 3.1 сборка 1200
var
number: integer;
sum, sum_all, k: integer;
begin
repeat
write('Элемент последовательности => ');
readln(number);
if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;
if (number <= 100) then k := k + 1;
sum_all := sum_all + number;
until number = 0;
writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);
writeln('Сумма всех = ', sum_all);
writeln('Кол-во чисел, которые не больше 100 = ', k);
end.
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 80 * 32 * 50 = 128000 шт
i = 16 бит
I - ?
I = K * i = 128000 * 16 бит = 2048000.0 бит
2048000.0 бит = 256000.0 байт = 250.0 Кбайт