Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>
N = int(input("n = "))
for i in range(0,n+1):
print (i)
На C++
#include <iostream>using namespace std;int main(){
/*
k - это колличество чисел в последовательности
now - считываемое число
min - искомое значение
*/
int k, now, min = 30001;
cin >> k;
for( k; k > 0; k--){
cin >> now;
if( (now % 5 == 0) && (now < min) ){
min = now;
}
} cout << min; return 0;
}
Сместиться в точку (2;1)
опустить перо
сместиться в точку (4;6)
сместиться в точку (6;1)
сместиться в точку (2;1)
Var
a,b,c:integer;
begin
c:=5;
b:=5;
a:=1;
repeatc:=c+4;
b:=b+c;
a:=a+1;
until b=324;
writeln('Количество слагаемых:',a);
<span>end.</span><span />