Var a,b:real;
begin
readln(a,b);
writeln('Сумма чисел равна: ',a+b);
writeln('Произведение чисел равно: ',a*b);
writeln('Частность чисел равна: ',a/b);
end.
N=600
N=16*32=512
N=2^i=2^9=512
i=9 бит
I=n*i
I=600*9=5400 бит
Ответ: 5400
вроде так, хотя могла попутать
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('>');
var a:=s.ToWords(',');
Writeln('Количество слов "Мама": ',a.Where(w->w='Мама').Count);
s:=(s+',').Replace('Мама,','Пама,'); Delete(s,s.Length,1);
s.Println
end.
<u>Пример</u>
> Мама,мама,что,я,буду,делать,Мама,мама,как,я,буду,жить
Количество слов "Мама": 2
Пама,мама,что,я,буду,делать,Пама,мама,как,я,буду,жить
Var
a, i: integer;
begin
a:=0;
i:=10;
repeat
if ((i mod 3) = 0) then
a:=a+1;
i:=i+1;
until i = 100;
writeln(a);
<span>end.</span>
Const xn=1.5; xk=4.5; h=0.05;
var x,y,xmin,ymin:real;
i:integer;
begin
x:=xn;
xmin:=x; ymin:=exp(x)-x*x*x;
for i:=1 to round((xk-xn)/h) do
begin
x:=x+h;
y:=exp(x)-x*x*x;
if y<ymin then
begin
xmin:=x; ymin:=y;
end;
end;
writeln('xmin = ',xmin:5:2,' ymin = ',y:7:5);
end.
Результат:
<span>xmin = 3.75 ymin = -1.10787</span>