Ответ в картинке, всего хорошего.
var a: array [1..10] of integer; c,sum: integer;beginsum:=0; writeln('введите элементы массива '); for c := 1 to 10 do read(a[c]); for c := 1 to 10 do if (a[c] mod 9) = 0 then sum:=sum+a[c];writeln('сумма равна =',sum);end.
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
50 и 25
Наим.общ. Дел. - 25
Кратное- 50
2 часа 15 минут = 135 минут = 8100 секунды 2152=(2^3)*269
(2152*8100) Кбит - размер фильма (объём памяти)
(2152*(2^10)*8100) : (90 * 2^20 )=269*90/(2^7)=269*45/64= 12105/64≈202секунды
202 :60 = 3 минуты 22 секунды ≈ 3,3 минуты или≈ 3,5 минуты