Синформатикой! нужно написать следующую программу: найдите сумму всех четных чисел от 1 до 200

279

416

Посмотреть ответы 2

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

ДашаЕ1

Информатика

4,6(39 оценок)

Сумма всех четных чисел от 1 до 200 - это на самом деле сумма чисел 2+4+6++198+200. 1. самый короткий вариант // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin writeln(range(2,200,2).sum) end. результат: 10100 2. более длинный и более "школьный" вариант // pascalabc.net 3.1, сборка 1219 от 16.04.2016 begin var s: =0; var i: =2; while i< =200 do begin s: =s+i; i: =i+2 end; writeln(s) end. 3. совсем "тупой школьный" вариант (решение "в лоб") // pascalabc.net 3.1, сборка 1219 от 16.04.2016 var i,s: integer; begin s: =0; for i: =1 to 200 do if i mod 2 =0 then s: =s+i; writeln(s) end. 4. улучшенный "школьный" вариант // pascalabc.net 3.1, сборка 1219 от 16.04.2016 var i,s: integer; begin s: =0; for i: =1 to 100 do s: =s+2*i; writeln(s) end.