составте метод для вычисления суммы 100 чисел

составте метод для вычисления суммы 100 чисел

Задать свой вопрос
Валерия Мигина
100 поочередных чисел (от 1 до 100)?
Vitalij Iframeev
да
1 ответ
Var a,b,c:integer;
begin
for a:=1 to 100 do
begin
if a mod 2=0 then b:=b+a
else
c:=c+a;
end;
writeln(b);
write(c);
end.
Руслан Базенько
всё в кучу свалил( как по другому закинуть
Саша Кокосов
пожалуйста
Александр Сенишин
вот всё
Михаил Кисликов
если захочешь поменять просвет чисел ну не от 1 до 100 а допустим от 1 до 200 изменяй строчку for a:=1 to 100 do
Нина Пеньковская
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт