Var n, i, sum: integer;
begin
read(n);
sum := 0;
for i:=1 to n do
sum := sum + (2*i-1);
writeln(sum);
end.
Не знаю я на это ответа, сорян
<span>1) - в)запись
2) - а)текст
3) - г)отчет
4) - в)сортировкой
5) - б)?с*а
</span>
В Pascal:
const n=100;
var a: array[1..n] of integer;s,i:integer;
begin
s:=0;
for i:=1 to n do begin
writeln('Введите', i, '-й элемент массива');
readln (a[i]);
end;
for i:=1 to n do begin
s:=a[i]+s;
end;
write('Сумма элементов массива = ',s);
<span>end.</span>
//PascalABC.NET 3.2 сборка 1318
var
n, m, max, k, i: integer;
ar: array of integer;
function CountOfDel(n: integer): integer;
var
i, k: integer;
begin
if n>0 then
begin
for i := 1 to n do
if n mod i = 0 then inc(k);
end
else
for i:= n to -1 do
if n mod i = 0 then
inc(k);
CountofDel := k;
if n=0 then
CountofDel:=0;
end;
begin
readln(n, m);
k := 0;
max := 0;
for i := n to m do
begin
if CountOfDel(i)=0 then
begin
writeln('0');
exit;
end;
if CountOfDel(i) > max then
begin
k := 1;
setlength(ar, k);
ar[k - 1] := i;
max := CountOfDel(i);
end
else
if CountOfDel(i) = max then
begin
inc(k);
setlength(ar, k);
ar[k - 1] := i;
end;
end;
for i := 0 to k - 1 do
write(ar[i]:4);
end.
Пример ввода:
1 10
Пример вывода:
6 8 10