natasham-716

12.07.2020

Здравствуйте, нужно решить задачу )!

Информатика

Ответить

Ответы

Konstantinovna Ilyukhin1618

12.07.2020

var

i, n, sum: integer;

begin

writeln('Input N:');

readln(n);

sum:=0;

for i:= 2 to n do

if i mod 2 = 0 then

sum := sum + i;

writeln(sum)

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Здравствуйте, нужно решить задачу )!

▲

Здравствуйте, нужно решить задачу )!

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Решить в турбо дано натуральное число n, целые числа а1, а2, а3 вычислить сумму чисел массива , кратных 4 .

Школа, компьютер , государство, солнечная система, человек: подсистема 1 , подсистема 2

Хелп информатика 10 класс Заполнить массив случайными числами и переставить местами максимальный и минимальный элемент массива

Найти все натуральные числа из промежутка от 1 до 200 у которых количество делителей равно n python

Молю решите заранее огромное var s, n: integer; begin s:=100 n:=300 while s+n <= 600 do begin s:= s+40 n:=n-20 end var s, n: integer; begin s:=500 n:=200 while s div n >= 2 do begin s:= ...

Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива на 1 элемент

Определите значение переменной S после выполнения операторов: а:=1; b:=1; S:=0; нц пока a<=5 a:=a+b; b:=b+a; S:=S+a+b кц

Выпишите первые восемь натуральных чисел для систем счисления с основанием 10, 2, 3, 4, 5, 6.

Здравствуйте, нужно решить задачу )!​

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Решить в турбо дано натуральное число n, целые числа а1, а2, а3 вычислить сумму чисел массива , кратных 4 .

Школа, компьютер , государство, солнечная система, человек: подсистема 1 , подсистема 2

Хелп информатика 10 класс Заполнить массив случайными числами и переставить местами максимальный и минимальный элемент массива

Найти все натуральные числа из промежутка от 1 до 200 у которых количество делителей равно n python

Молю решите заранее огромное var s, n: integer; begin s:=100 n:=300 while s+n &lt;= 600 do begin s:= s+40 n:=n-20 end var s, n: integer; begin s:=500 n:=200 while s div n &gt;= 2 do begin s:= ...

Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива на 1 элемент

Определите значение переменной S после выполнения операторов: а:=1; b:=1; S:=0; нц пока a&lt;=5 a:=a+b; b:=b+a; S:=S+a+b кц

Выпишите первые восемь натуральных чисел для систем счисления с основанием 10, 2, 3, 4, 5, 6.

Здравствуйте, нужно решить задачу )!

Молю решите заранее огромное var s, n: integer; begin s:=100 n:=300 while s+n <= 600 do begin s:= s+40 n:=n-20 end var s, n: integer; begin s:=500 n:=200 while s div n >= 2 do begin s:= ...

Определите значение переменной S после выполнения операторов: а:=1; b:=1; S:=0; нц пока a<=5 a:=a+b; b:=b+a; S:=S+a+b кц