Написать программу паскаль, с оператором repeat.
5-9 класс
|
var i,n,k:integer;
beginwriteln('введите n');
readln(n);
i:=0;k:=0;
repeat {начало цикла}
i:=i+1;
if (I mod 3)=0 then k:=k+1;
until I=n; {конец цикла}
writeln ('количество чисел кратных 3= ',k);
end.
если чего непонятно - спрашивай
конец цикла при условии?
until I>=n;. когда I(тут мы числа перебираем) станет больше или равно n (n- это то что мы вводим, т.е то число до которого надо перебрать цифры).
тут наверно даже можно изменить на until I=n;
ответ немножко подправил. глянь сейчас
Другие вопросы из категории
Написал программу следующим образом:
Читайте также
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
расположденных по диагонали
3.Написать программу рисующую горизонтальную цепочку из 12 кругов,каждый круг должен на половину закрывать предыдущий
Помогите,а то сижу с паскалем уже час с лишним и все никак не получается..
Заранее спасибо)
(написать на языке программы паскаль, и если кто забыл, то квадрат суммы это - квадрат первого числа плюс удвоенное произведение первого на второе плюс квадрат второго числа )
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
1. Написать программу нахождения произведения n чисел.