• 
  • 06 June 2013
  Қазақ тiлi
  • Автор: Trollman1235

  

  Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.

• 
  • 06 June 2013
  • Ответ оставил: Ольк95

  program name;
  uses crt;
  var i,s,n:integer;
         a: array [1..100] of integer;
  begin
  clrscr;
  readln(n);
  s:=0;
  for i:=1 to n do begin
  if a[i] mod 5= 0 then begin
  s:=s+a[i];
  end;
  end;
  writeln(s);
  end.

  0
• 
  • 06 June 2013
  • Ответ оставил: Kudinovasasha1

  CLS
  a:
  INPUT n
  IF n < 1 OR INT(n) <> n OR n > 100 THEN GOTO a
  DIM a(n)
  FOR i = 1 TO n
  b:
  INPUT a(n)
  IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 300 THEN GOTO b
  IF INT (a(n) / 5) = a(n) / 5 THEN s = s + a(n)
  NEXT i
  PRINT s
  END
  
  

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

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

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

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

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