• 
  • 23 April 2011
  Английский язык
  • Автор: Лина0403

  

  Составьте алгоритм нахождения суммы четных и нечетных чисел от 1 до 100. На языке ПАСКАЛЬ

• 
  • 23 April 2011
  • Ответ оставил: BoomboteXL

  uses crt;
  var

    i,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.

  0
• 
  • 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.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (22.12.2024) наш сайт содержит 16363 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы