Прога на паскаль 30 заполнить линейный массив по формуле: х[i]=2+i*5; найти сумму элементов массива ,кратных 4 и 5.
275
344
Ответы на вопрос:
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.
Универсальные языки программирования-это те языки,которые подойдут для любой сферы программирования.к примеру(верстальщики,по программисты,программисты игры и таким языкам можно отнести c++.
Популярно: Информатика
-
kotizm23.08.2022 16:48
-
Hgfdc01.05.2022 12:19
-
nastik110206.08.2021 08:08
-
yoonnie413822.04.2022 02:32
-
dashasayapina07.01.2023 21:29
-
NikolayTop01.02.2023 21:39
-
аннасерб27.06.2022 19:56
-
OPGG20.04.2020 08:15
-
Abl1530.08.2020 04:35
-
sergei19930.07.2020 05:27