-
- 23 April 2011 Английский язык
- Автор: Лина0403
Составьте алгоритм нахождения суммы четных и нечетных чисел от 1 до 100. На языке ПАСКАЛЬ
-
- 23 April 2011
- Ответ оставил: BoomboteXL
uses crt;
vari,s1,s2:integer;
begin
for i:=1 to 100 do
begin
if i mod 2=0 then s1:=s1+i
else s2:=s2+i;
end;
writeln('Сумма четных чисел: ',s1);
write('Сумма нечетных чисел: ',s2);
end. -
- 23 April 2011
- Ответ оставил: Anastasiyacom
i - цикловая переменная
s1 - сумма нечётных чисел от 1 до 100
s2 - сумма чётных чисел от 1 до 100
var
i, s1, s2 : integer;
begin
s1 := 0;
s2 := 0;
for i := 1 to 100 do
begin
if i mod 2 = 0 then
s2 := s2 + i;
else
s1 := s1 + i;
end;
writeln ('Сумма четных чисел: ', s2);
writeln ('Сумма нечетных чисел: ', s1);
end. -
- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
На сегодняшний день (30.10.2024) наш сайт содержит 16361 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос. -
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных
Ответить на вопрос