Составьте программу для нахождения количества чисел, кратных 3
5-9 класс
|
и 5 в интервале от 300 до 1000.
var i,k:integer;
begin
k:=0;
for i:=300 to 1000 do
begin
if (i mod 3=0) and (i mod 5=0) then
begin
k:=k+1;
end;
end;
writeln(k);
end.
если кому надо я уже сама решила var
a,b:integer;
begin
for a:=300 to 1000 do
if (a mod 3=0)and(a mod 5=0)then
begin
b:=b+1;
end;
writeln(b);
end.
ты тогда тот пост убери, просто там тоже самое)
Другие вопросы из категории
Читайте также
и 5 в интервале от 300 до 1000.
программы подаются целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0 (0 - признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введенные числа по модулю не превышают 300. Программа должна вывести сумму и количество чисел, кратных 17, или вывести NO, если таких числе в последовательности нет
числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введеные числа по модулю не превышают 30000. Программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.
в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 4.