Перейти к выбору ответа

Опоюределить разность между суммой четных и нечетных из отрезка от 1 до 50…
Цикл с параметром
Заранее спасибо

Выбрать другой вопрос
Смотреть ответ
Перейти к выбору ответа
Информатика

Ответ учителя по предмету Информатика

Var A,Sc,Sn:integer;

Begin

Sc:=0;

Sn:=0;

For A:= 1 to 50 do

   if A mod 2 = 0 then Sc:=Sc+A

   else Sn:=Sn+A;

WriteLn(Sc-sN)

End.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей