var i,k:integer;
begin
k:=0;
for i:=40 to 120 do
if i mod 7=0 then k:=k+1;
write('Чисел, кратных 7=',k);
readln
end.
Похожие записи/страницы:
- Составить программу выводящую на экран квадратные корни десяти первых чисел кратных введённому с точностью до…
- Записать в типизированный файл из N произвольных натуральных чисел. Переписать в другой типизированный файл те…
- Написать функцию поиска количества элементов массива,кратных заданному числу- Pascal(Паскаль)
- Заполнить двумерный массив случайными целыми числами.Вывести массив на экран в виде таблицы. Определить сумму…
- Есть множество S1 от 1 до 200. Записать во множество S2 все числа из S1 кратные 6 - Pascal(Паскаль)
- Задан массив Х целочисленных элементов (n=10) найти произведение элементов М и сумму элементов кратных…
- Дана одномерная матрица A[1:35]. Нужно выяснить сумму и количество элементов, кратных 2, находящихся в диапазоне…
- Написать программу для наглядного представления подсчета четных и нечетных чисел. В цикле вводить целые числа x…