Вычислить сумму чётных чисел на отрезке от a до b решить на языке pascal
143
231
Ответы на вопрос:
//pascalabc.net //версия 3.3, сборка 1611 begin write(range(readinteger('a='),readinteger('b='(x-> x.iseven).; end.
Var a,b,s,i: integer; begin write('введите начало отрезка: '); readln(a); write('введите конец отрезка: '); readln(b); s: =0; for i: =a to b do begin if i mod 2 =0 then s: =s+i; end; write('сумма четных чисел на отрезке: ',s); readln; end.
Популярно: Информатика
-
рпрпрп103.08.2022 22:00
-
akkiekim25.03.2023 13:10
-
yannappp105.05.2023 01:05
-
ra1si1ka131.01.2021 03:50
-
HelpDZ111.01.2020 06:18
-
ul8a02.04.2021 23:56
-
Volosyaka12.04.2022 11:28
-
denishustov24.03.2023 15:28
-
artemonimus23.06.2022 17:20
-
Полина8975018.04.2021 10:05