• 
  • 19 March 2011
  Английский язык
  • Автор: Нися2021

  

  1) Определить, является ли заданное целое число а двузначным числом. (Разветвляющийся алгоритм)

  2) Вывести все нечетные однозначные числа. (Цикл)

  3) Найти сумму нечетных элементов одномерного массива. (Массив)

  все в паскале

• 
  • 19 March 2011
  • Ответ оставил: xXxAikaxXx

  1)

  program z1;

  Var a:integer;

  Begin read(a);

  if (a>9) and (a<100) then writeln(a, '-двузначное число')

  else writeln(a, '-не является двузначным числом');

  end.

  2)

  program z2;

  Var i:integer;

  Begin

  for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

  end.

  2 способ:

  program z2;
  Var i:integer;
  Begin
  i:=1;
  while i<=9 do
  begin write(i, ', ');
  i:=i+2;
  end;
  end.

  3)

  program z3;
  Var i,n:integer;
  S:real;
  a: array[1..100] of real;
  Begin
  write('Введите количество элементов массива:');
  readln(n);
  write('Введите элементы массива:');
  for i:=1 to n do read(a[i]);
  i:=1; S:=0;
  while i<=n do
  begin S:=S+a[i];
  i:=i+2;
  end;
  write('S=',S);
  end.

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

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

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

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

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