2*(a*a-b*b)
(a+b)*(c+d)
(2*a+b)/(c-2*d)
Ответ:
Объяснение:
В условии опечатка!
Надо: Всего - 32064
32064 - 100%
18447 - X%
X = 18447·100% / 32064 ≈ 57,5%
(См. таблицу:)
С помощью оператора while:
var
i,sum:integer;
begin
sum:=0;
i:=1;
while i<=10 do
begin
sum:=sum+i;
i:=i+2;
end;
writeln ('Summa: ',sum);
end.
Пойдет?
uses crt;
var
i: byte;
s: word;
begin
i := 1;
s := 0;
while i <= 10 do
begin
if i mod 2 <> 0 then
s := s + i;
inc(i);
end;
writeln('Сумма нечётных чисел от 1 до 10: ', s);
readln;
end.