Var a,b,c:real;
begin
writeln('введите два числа');readln(a,b);
c:=a+b;
writeln('сумма=',c);
end.
Var x,a,s:real; i,n:integer;
begin
write('x = '); readln(x);
write('n = '); readln(n);
s:=0;
a:=-1;
for i:=1 to n do
begin
a:=-a*x;
s:=s+a/i;
end;
writeln('s = ',s);
end.
Пример:
x = 0.5
n = 4
s = 0.401041666666667
Рдчшдпчевжмлатж Лев адевщнгаг пгрзщнза. Вдпсюрвн. Ангеле
Операторы цикла while и repeat<span> используются тогда, когда заранее не известно общее количество итераций (повторений вычислений) цикла, а завершение вычислений зависит от некоего условия. Если условие ставится вначале цикла (на входе), то используется оператор While, если на выходе – Repeat. Дальше решить не могу, но вот определение.</span>
<span>"вознесся выше он главою непокорной Александрийского столба" -58 симв.
58 * 16 = </span>928 бит / 8 = 116 байт.
4. 16*30*32*16 = 245760 бит / 8 = 30720 байт.
5. 16*50*64*16 = 819200 бит / 8 = 102400 байт.
6. 14 * 36 * 64 * 2 байт = 64512 байт