Question

8 класс, напишите программу на Pascal ABC по этой задаче. Именно программу которую можно скопировать напрямую в сам паскаль, большое спасибо. Сама задача: "Вводится N целых чисел, определите количество чисел кратных 10"

Answer 1

Ответ:

Объяснение

var n,i,a,b:integer;

begin

b := 0;

write('введите n - '); readln(n);

for i:= 1 to n do begin

write('введите a - '); readln(a);

if a mod 10 = 0 then

b := b + 1;

end;

write('количество чисел кратных 10 - ', b);

end.

Answer 2

Конечно! Вот программа на Pascal ABC для решения данной задачи:

pascalCopy code
program CountMultiplesOfTen;

var
  N, number, countMultiplesOfTen: integer;

begin
  countMultiplesOfTen := 0;
  
  writeln('Введите количество чисел N:');
  readln(N);
  
  writeln('Введите ', N, ' целых чисел:');
  
  for var i := 1 to N do
  begin
    readln(number);
    if number mod 10 = 0 then
      countMultiplesOfTen := countMultiplesOfTen + 1;
  end;
  
  writeln('Количество чисел, кратных 10: ', countMultiplesOfTen);
end.

Программа запрашивает у пользователя количество чисел N и затем последовательно вводит N целых чисел. После этого она подсчитывает количество чисел, которые кратны 10, и выводит результат на экран. Вы можете скопировать этот код и вставить его в Pascal ABC для его выполнения.