Question

ПАСКАЛЬ: Знайдіть всі числа з інтервалу 100-200 кратні 25. Знайдіть їх суму та кількість.ЛЮДИИ... ПОМОГИТЕ!!!

Answer 1

 program 12332586; 
var i,s:integer; 
begin S:=0;
for i:=100 to 200 do
if (i mod 25=0) then
S:=S+i;       
writeln(s);           
    end.

Answer 2

Звісно, я допоможу вам з цим завданням. У мові програмування Паскаль ви можете використовувати цикл для перебору чисел у заданому інтервалі та перевірки, чи вони кратні 25. Ось невеличкий код на мові Паскаль, який вирішує це завдання:

program MultiplesOf25;

var
  number, sum, count: integer;

begin
  sum := 0;  // Ініціалізація змінних
  count := 0;

// Перебір чисел у інтервалі від 100 до 200
  for number := 100 to 200 do
  begin
    // Перевірка, чи число кратне 25
    if number mod 25 = 0 then
    begin
      writeln('Знайдено кратне 25: ', number);
      sum := sum + number;  // Додавання числа до суми
      count := count + 1;   // Збільшення лічильника
    end;
  end;

writeln('Сума кратних 25: ', sum);
  writeln('Кількість кратних 25: ', count);

readln;
end.

У цьому коді ми використовуємо цикл `for`, який проходить усі числа від 100 до 200. Оператор `mod` використовується для перевірки, чи число кратне 25. Якщо число кратне 25, то його додаємо до суми, і лічильник збільшується. На кінці програми виводяться сума та кількість знайдених кратних чисел.