Задать вопрос
17 мая, 14:23

1. Найти количество натуральных чисел, не превышающих 100 и кратных 5.

2. Создать массив А из 10 элементов, принадлежащих промежутку (0; 25). Вывести полученный массив на экран. Подсчитать количество элементов, больших А [1]. Все с помощью Паскаля

+1
Ответы (1)
  1. 17 мая, 17:04
    0
    1.

    var i, k:integer;

    begin

    k:=0;

    for i:=1 to 100 do

    begin

    if (i mod 5 = 0) then k:=k+1;

    end;

    writeln (k) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «1. Найти количество натуральных чисел, не превышающих 100 и кратных 5. 2. Создать массив А из 10 элементов, принадлежащих промежутку (0; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы