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

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

Question

Любомила

17 мая, 14:23

+2

Ответы (1)

Знаете ответ?

Вадимыч · Answer 1

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.