var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Pogram ypr;Var s:string;p:integer;beginreadln(s);p:=pos(' ',s);delete(s,2,p);writeln(s);end.
Сумма натуральных чисел от 20 до 30 составляет арифметическую прогрессию, состоящую из 11 членов. Первый член прогрессии: 20, разность прогрессии - 1. По формуле суммы n членов прогрессии составим программу.
<u>Решение на языке Pascal:</u>
var n: real;
begin
n := (20 + 30) / 2 * 11;
writeln(n);
end.
Иное решение: с помощью цикла просуммируем все числа от 20 до 30.
var
i, s: integer;
begin
s := 0;
for i := 20 to 30 do
s := s + i;
writeln(s);
end.
1)1<span>462
2)</span>110101<span>100
3)</span>2<span>671
4)</span><span>101000111000
А последний в какой системе надо?
</span>