Домашние задания: Информатика

Задача по информатике на паскале.

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

uses crt; 

label l; 

var a, i, n, s: integer; 

begin 

clrscr;

s:=0; 

writeln ('В данной программе осуществляется ввод натуральных (целых, >0) чисел с клавиатуры. После ввода каждого числа нажимайте клавишу Enter.'); 

write ('Введите количество чисел в последовательности (не более 100): '); 

readln (n); 

if (n100) then writeln ('Ошибка: Было введено некорректное значение.') else begin 

   writeln ('Теперь вводите сами числа по 1. После ввода каждого числа нажимайте клавишу Enter. Внимание: программа не работает с числами >300.'); 

   for i:=1 to n do begin 

       readln (a); 

       if (a300) then begin 

          writeln ('Ошибка: Было введено некорректное число.'); 

          goto l; 

          end; 

       if a mod 5=0 then s:=s+a; 

       end; 

   if s=0 then writeln ('Ошибка: В введенной последовательности нет ни 1 числа, кратного 5.') else writeln ('Сумма чисел, кратных 5 в введенной последовательности составляет: ', s); 

   end; 

l:; 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
МК
Марина Каzанцева
43 559
Лучший ответ
В обоих программах БОТ не проверяет ни количество введенных чисел, ни условие, что числа должны меньше или равны 300. Обе задачи БОТА - в УТИЛЬ!!!
Ainura Zhumasheva
Ainura Zhumasheva
73 229 
 program sum5; 

 

var 

 

n, i, x, sum: integer; 

 

begin 

 

sum := 0; 

 

read(n); 

 

for i := 1 to n do 

 

begin 

 

read(x); 

 

if x mod 5 = 0 then 

 

sum := sum + x; 

 

end; 

 

writeln(sum); 

 

end.
Алексей Галяткин
Алексей Галяткин
21 299 
 program SumOfMultiplesOf5; 

 

var 

  n, i, x, sum: integer; 

 

begin 

  readln(n); 

  sum := 0; 

  for i := 1 to n do 

  begin 

    readln(x); 

    if x mod 5 = 0 then 

      sum := sum + x; 

  end; 

  writeln(sum); 

end.
Иван ,,,,,,,,
Иван ,,,,,,,,
8 642

Похожие вопросы