Необходимо составить программу в паскале которая: вычислить сумму квадратов первых 15 натуральных чисел, каждое из которых при делении на 5 дает в остатке 3 .
142
439
Ответы на вопрос:
Var i,k,s: integer; begin while k< 15 do begin i: =i+1; if i mod 5=3 then begin if k< 14 then write (i,'^2 + ') else write (i,'^2 = '); s: =s+sqr(i); k: =k+1; end; end; writeln (s); end.
Не уверен что такое фирмы и в чем сам вопрос но ладно если не правильно то жаль и надеюсь то что это про интернет-провайдеры. ростелеком, мтс, сотрудник.
Популярно: Информатика
-
wokef113.01.2023 08:38
-
svyatoslavkorchagin28.08.2022 11:42
-
juicedark611.09.2020 23:25
-
KatyaKuxar12.04.2023 19:36
-
beloborodov05p06igp13.05.2022 06:03
-
xrot13.06.2020 20:24
-
ВеселыйР0джер20.06.2020 19:29
-
gvarya0506.12.2021 07:46
-
Ненике10.03.2021 15:50
-
danyXelper05.12.2021 08:13