Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
gilmutdinova011
05.06.2020 10:10 •
Информатика
Паскаль, цикл while вводятся числа, посчитать кол-во чисел, которые делятся на 2 и которые делятся на 3. ввод закончить 0. вывести на экран кол-во чисел , делящихся на 2 и кол-во чисел, делящихся на 3. ,
Показать ответ
Ответ:
1o10019soos
05.07.2020 10:17
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
islom0503
05.11.2022 18:54
Склавиатуры вводится два целых числа, обозначающих возраст человека и его пол (1 – мужской, 2 –женский). составить программу, которая в зависимости от введенных данных определяет...
lizaivanovamail
08.12.2021 19:18
Написать программу на паскале даны действительные числа x,y. вычислить значение функции z=arcsin(x+y)...
23774947hhbhut
04.06.2020 04:20
Напишите программу на языке паскаль, которая в последовательности целых чисел определяет количество четных чисел кратных 3.программа получает на выход целые числа. количество введенных...
zhasbaevamp06rkz
01.04.2022 22:06
Какое из чисел следует за числом 778 в восьмеричной системе счисления?...
Аккаунт удален
29.05.2023 05:07
Вфайле хранится информация о книгах: шифр, фамилия автора, название книги, год издания. в новый файл переписать информацию о книгах, в названии которых встречается заданное слово....
nikita06556
29.05.2023 05:07
Решение для данной : автобус провозит 50 пассажиров. из них 10 едут до первой остановки, 20 - до второй, а остальные до конечной. стоимость билетов до каждой станции соответственно...
LugovoyDanila
03.12.2021 15:22
Запишите значение переменной y, полученное в результате работы следующей программы. текст программы на трёх языках программирования. var y,i: integer; begin y : = 0; for i : = 1 to...
AKA1111173
03.12.2021 15:22
Для программирования исполнителя используется алгоритмический язык. вася написал программу на этом языке. вот ее фрагмент: sum: =0 raz: =1 нц пока chislo 0 cifra: = mod(chislo; 10)...
Reson1
17.03.2022 04:08
Дана последовательность целых чисел, заканчивающихся нулём. посчитать кол-во четных и нечетных чисел, сумму и среднее арифметическое. написать программу на паскале....
diana1078
15.11.2020 00:03
1)запишите число 1243, 593 различными в форме с плавающей запятой 2) выполните операцию сложения и умножения над следующими парами чисел: 10101^2 и 110^2 3) как будет представлено...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.