Program z1;
var a,b,c,p:double;
begin
readln(a);readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln(p);
readln
end.
Ответ:
Дано:
K=100;
N1=8;
N2=64;
Найти: I(общ.).
Решение:
I=K*i;
N=2^i => i1=3; i2=6;
I1=100*3=300(бит); I2=100*6=600(бит);
I(общ.)=600+300=900(бит)=112,5(байт).
Ответ: 112,5 байт.
Объяснение:
Var i,s,a:integer;
begin
s:=0;
for i:=21 to 99 do
begin
a:=i mod 10;
if (i mod 3 = 0)and((a=2)or(a=4)or(a=8)) then s:=s+i;
end;
writeln('s = ',s);
end.
Результат:
<span>s = 402</span>
Ответ №1
С файлом ничего не приключилось, где был, там и лежит