Program n1;
var i,n,sum: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+2*i;
writeln(sum);
end.
Делай сначала таблицу, а потом заполняй её, беря данные из интернета
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
for var i:=0 to a.Length-1 do
if Odd(i) then a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
86 25 63 95 28 78 30 41 26 3 52 30 46 74 84
86 0 63 0 28 0 30 0 26 0 52 0 46 0 84
Program vasha_zadacha_1;
var a,b,c:integer ;
begin
c:=0;
writeln('введите промежуток от');
readln(a);
writeln('до');
readln(b);
if a>b then
for b:=b to a do begin
if (b mod 5<>0) then c:=c+1;
end;
for a:=a to b do begin
if (a mod 5<>0) then c:=c+1;
end;
writeln('колличество чисел не кратных пяти в этом диапазоне ', c);<span>
end.</span>
Смех,танец,грусть,помахать,сказать "Привет!"