Ответ:
Т.к язык не указан, написал на с++
Программа на скрине вместе с примером работы.
Объяснение:
В цикле заполняем массив случайными числами и выводим его на экран.
Обнуляем переменные хранящие количество 4ок и 5ок.
В цикле проверяем каждый элемент. Если он равен 4 или 5 , то инкрементируем соответствующую переменную.
Выводим результат на экран.
1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
Если на один символ — 2 байта, то как я понимаю, на восемнадцать символов— 18*2=36 байтов.
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
Слух, летучим мыши слышат ооочень хорошо