Предмет: Информатика,
автор: budanovanastya
1.Найти количество натуральных чисел, не превышающих 100 и кратных 5.
2.Создать массив А из 10 элементов, принадлежащих промежутку (0;25). Вывести полученный массив на экран. Подсчитать количество элементов, больших А [1]. Все с помощью Паскаля
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Математика,
автор: dianasalihova10
Предмет: Английский язык,
автор: vikanteleeva2008
Предмет: Физика,
автор: ledidiana0
Предмет: Химия,
автор: Аноним
Предмет: Литература,
автор: арина1618