в одной программе предусмотренны все 3 условия
program abc;
var i,sum1,sum2:integer;
begin
for i:=2 to 10 do
writeln('kvadraty',i*i,' Kyby',i*i*i);
for i:=1 to 200 do
sum1:=sum1+i;
writeln(sum1);
for i:=1 to 99 do
if i mod 4<>0 then sum2:=sum2+i;
writeln(sum2);
end.
1) 2⁶ Мб = 2⁶×2¹⁰ = 2¹⁶ Кб
2) 2³⁰ Кб = 2³⁰/2²⁰ = 2¹⁰ Гб
3) 2⁴¹ бит = 2⁴¹/2³ = 2³⁸ б = 2³⁸/2²⁰ = 2¹⁸ Мб
Begin
writeln(2798 mod 28 div 9);
end.
Ответ 2
var
a,b,c,S,p:real;
begin
readln(a);
readln(b);
readln(c);