Составьте программу которая вычисляет сумму натуральных чисел кратных 4 в диапазоне от 5 до n (n велено с клавиатуры)

171

281

Посмотреть ответы 2

Ответы на вопрос:

gelya12121

Информатика

4,4(40 оценок)

Var n,i,s: integer; begin writeln('введите n'); read(n); for i: =5 to n do if i mod 4=0 then s: =s+i; write ('сумма натуральных чисел которые кратны 4 равно ',s); end.

harrasova2000ozvpju

Информатика

4,8(88 оценок)

Const n=8; var x : array[1..n] of real; i : integer; min : real; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin x[i]: =20*random-10; write(x[i]: 6: 2,' '); end; writeln; min: =x[1]; for i: =2 to n do if x[i] < min then min: =x[i]; writeln('min=',min: 6: 2); for i: =1 to n do if x[i]< 0 then x[i]: =min; writeln('измененный массив: '); for i: =1 to n do write(x[i]: 6: 2,' '); end. пример: исходный массив: -7.84 -9.97 7.00 -8.26 -7.71 -3.88 7.59 -2.32 min= -9.97 измененный массив: -9.97 -9.97 7.00 -9.97 -9.97 -9.97 7.59 -9.97