Есть ответ 👍

Вычислить сумму чётных чисел на отрезке от a до b решить на языке pascal

143
231
Посмотреть ответы 3

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


//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.
DenSkye
4,5(43 оценок)

ответ:

относится к передаче

Популярно: Информатика