Var a,b,c:real;
begin
writeln('введите два числа');readln(a,b);
c:=a+b;
writeln('сумма=',c);
end.
1.25× 1024= 1280
1280×8=10240 бит
Ответ:10240 бит
Пусть десятичнная запись числа - это х, тогда по первому условию:
х=2*(р-1)+3,
по второму условию:
х=(р+1)*1+6
приравниваем и вычисляем р:
2(р-1)+3=р+1+6
2р-р=7-3+2
р=6
отсюда х=6+1+6=13
ответ: десятичная записи - это 13.
Const n=10;
Var b,c;
a:array [1..n] of integer;
Begin
b:=0; c:=0;
For i:= 1 to n do
If a[i]>0 then b:=a[i]+b
else
inc(c);
Writeln(b,' ', c);
end.
A+А/100*20=А+А*0,2-это с 20%
Следовательно итоговая формула если К>=50. тогда (К-50)*А*0,2+К*А
если К<=50, тогда К*А