profile


Опубликовано 5 лет назад по предмету Информатика от miskaryando

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

  1. Ответ
    Ответ дан kirillankudinov94

    Ответ:

    Объяснение

    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.

    1. Ответ
      Ответ дан miskaryando
      Спасибо большое!
    2. Ответ
      Ответ дан kirillankudinov94
      мы такие программы в начале второй четверти 7-ого класса писали, так что я почти на 100% уверен в правильности

Другие вопросы