//задача 1program _sqrt;var ar:array[1..100] of integer;i:integer;Res:real;beginfor i:=1 to 100 do ar[i]:=i;for i:=1 to 100 do if ar[i] mod 2=0 then res:=res+ar[i];res:=sqrt(res);write(res);end.
//задача 2. 100 элементов слишком много для произведенияprogram _sqrt;var ar:array[1..10] of integer;i:integer;res:int64;beginres:=1;for i:=1 to 10 dobeginar[i]:=i;res:=res*sqr(ar[i]);end;write(res);end.
//задача 3program _sqrt;var ar:array[1..100] of integer;i:integer;res:int64;beginfor i:=1 to 100 dobeginar[i]:=i;if ar[i] mod 2=1 then res:=res+ar[i];end;write(res);end.
Ответ:
Программа и часть результата работы на скрине.
Объяснение:
В цикле проверяем каждое четырехзначное число.
Если остаток от деления его на 155 равен нулю, то выводим его.
ꟷꟷꟷꟷꟷꟷ
Не забывайте сказать "Спасибо"! и, если ответ удовлетворил, то выберите его как "Лучший" - Вам вернется часть баллов!
Бодрого настроения и добра!
Успехов в учебе!
<span>В РИМСКОЙ СИСТЕМЕ СЧИСЛЕНИЯ:
</span>MMIII
F=320*60*65*16 = 19968000 (бит)=19968000:8 (байт) =2496000(байт)=
=249000:1024 (Кбайт) =2437,5 (Кбайт)=
=2437,5:1024(Мбайт) ≈2,38 (Мбайт)
ответ: 1) 2 Мбайта