сервис вопросов и ответовПаскаль, цикл while
5-9 класс|
|
Вводятся числа, посчитать кол-во чисел, которые делятся на 2 и которые делятся на 3. Ввод закончить 0. Вывести на экран кол-во чисел , делящихся на 2 и кол-во чисел, делящихся на 3.
помогите, пожалуйста
Kcuxa00
27 янв. 2014 г., 4:21:51 (10 лет назад)
Ahabokova
27 янв. 2014 г., 5:51:10 (10 лет назад)
n, i, k, d, t:integer;
begin
while n<>0 do
readln(n);
if (n mod 2)=0 then d:=d+1;
if (n mod 3)=0 then t:=t+1;
writeln(d,' ',t);
readln;
end.
Ответить
Другие вопросы из категории
Читайте также
Дано натуральное число. Определить сколько раз в нём встречается цифра а. на паскале с помощью оператора цикла: while
ББУДУ ОЧЕЕЕЕНЬ БЛАГОДАРНА
Найдите сумму всех натуральных чисел на промежутке от 1 до n.
Число n вводится на клавиатуре.Составьте на Паскале с циклом WHILE
Найдите сумму всех натуральных чисел на промежутке от 1 до n.
Число n вводится на клавиатуре.Составьте на Паскале с циклом WHILE
Ребят, помогите, пожалуйста. Нужно написать на паскале программку, с помощью цикла while: Вывести на экран все целые числа из диапазона
от A до B (A<=B), окончивающиеся на цифру X
Вы находитесь на странице вопроса "Паскаль, цикл while", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.