Прога на паскаль 30 заполнить линейный массив по формуле: х[i]=2+i*5; найти сумму элементов массива ,кратных 4 и 5.

275

344

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

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

nastalut207

Информатика

4,7(56 оценок)

Var x: array[0..100] of integer; i,n,sum: integer; begin writeln('сколько ячеек заполнять? '); readln(n); for i: =0 to n do begin x[i]: =2+i*5; writeln(x[i]); end; for i: =0 to n do begin if (x[i] mod 5=0) or (x[i] mod 4=0) then inc(sum,x[i]); end; writeln('сумма: ',sum); end.

kristina231220

Информатика

4,5(21 оценок)

Универсальные языки программирования-это те языки,которые подойдут для любой сферы программирования.к примеру(верстальщики,по программисты,программисты игры и таким языкам можно отнести c++.