Напишите программу которая вычисляет сумму 1) первыз n натуральных чисел 2) квадратов первых n натуральных чисел 3) всех четных чисел в диапазоне от 1до n 4) всех двузначных чисел
245
489
Ответы на вопрос:
// pascalabc.net var i,n,s1,s2,s3,s4: integer; begin readln(n); for i: =1 to n do begin s1: =s1+i; s2: =s2+i*i; if i mod 2=0 then s3: =s3+i; if (i> 9) and (i< 100) then s4: =s4+i; end; writeln(s1,' ',s2,' ',s3,' ',s4) end.
Популярно: Информатика
-
Tegebotik09.08.2022 21:13
-
winforever12.09.2020 22:14
-
MilaniaDelli25.12.2020 23:06
-
lisa2215120.11.2020 11:05
-
milyukovnikita07.04.2023 12:47
-
gxd59420.07.2021 03:12
-
Slvblgo31.12.2021 02:28
-
Лейла01117.06.2022 10:00
-
невідомий3422.09.2022 14:21
-
bezheveck22.08.2021 03:49