TURBO Pascal
10-11 класс
|
var
i,N:integer;
begin
writeln('Vvedite N');
readln(N);
for i:=1 to n do
if (i mod 2<>0)and(i mod 3<>0)and(i mod 5<>0)then writeln(i);
readln
end.
Данная программа выдает все числа, от 1 до заданного (n), которые не делятся без остатка на 2,3,5. что нужно исправить, чтобы программа выдавала только количество этих чисел.
Заранее спасибо.
Заведи переменную счетчика, например kol
if (i mod 2<>0)and(i mod 3<>0)and(i mod 5<>0)then
Другие вопросы из категории
"Вводиться 3 числа. Есть ли вероятность того, что одно из них оканчивается на 0?"
передающему сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640Х480
пикселей при условии, что цвет каждого
пикселя кодируется тремя битами?
Читайте также
Задание1.Вычислить заданное выражение для данных a, b используя оператор IF. Результат Х – введите вещественный тип данных
a*b-1,если a>b,
(a-5)/b,если a>b
X=
Задание 2. Вычислить заданное выражение для данных a, b используя, оператор
правильный ответ и ввести его номер.Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Архитектор Исаакиевского собора:
1. Доменико Трезини
2. Огюст Монферран
3. Карл Росси
Введите номер правильного ответа и нажмите <Enter>
= 2
Правильно.
Архитектор Исаакиевского собора - Огюст Монферран
на языке Turbo Pascal
y=2ctg3x-
распешите все действия что писать плиз.