tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать на языке паскаль
Написать на языке паскаль алгоритм нахождения количества натуральных четырехзначных чисел, каждое из которых не делится ни на 2, ни на 3.
58684
1 30.05.2019 08:20
10
Ответы
Аааоо0
30.06.2020 07:44
Uses crt;
var i,k:integer;
begin
k:=0;
for i:=1000 to 9999 do
if (i mod 2<>0) and (i mod 3<>0) then inc(k);
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vabyn
24.06.2019 12:00
Оперативная память компьютера содержит 163840 машинных слов (наибольшую последовательность бит, которую процессор может обрабатывать как единое целое), что составляет 0,625...
ilka2004z
24.06.2019 12:00
Таблица кодировки символов устанавливает соответствие между...
lerafilippovа04
18.11.2020 20:46
УМОЛЯЮ Составить алгоритм на алгоритмическом языке для решения следующей задачи: Найти корни квадратного уравнения ax2 +bx+c = 0....
dancecowerbts
18.11.2020 20:46
Кем был выпущен первый массовый персональныйКомпьютер?IntelIBMAvalonHewlett-Packard...
Murmurvk
18.11.2020 20:46
Нужно найти ошибку в определённой строке...
pointbreakk9
18.11.2020 20:46
Какие возможности предоставляются при работе с электронными образовательными ресурсами с использованием облачных сервисов?...
homyak8
18.11.2020 20:46
Что должен хелпер 3 предложения...
DamirLike
18.11.2020 20:47
Какой компанией была разработана и выпущенапрограмма WORD?AppleMicrosoftIntelLibre❤...
kasyanenkoolesy
14.08.2019 05:50
Какие понятия относятся к жесткому диску компьютера...
sasjhapodkolzin
14.08.2019 05:50
Цвет точки на экране цветного монитора формируется из сигнала: а.киасного,зеленного,синего и яркости в.красного,зеленного,синого в.желтого,зеленного,синого и красного г.желтого,синого,красного...
Популярные вопросы
Каким звуком обозначается буква ж в слове мужчина...
1
Шестизначное число 73216а делится на 6. найдите сумму возможных значений...
2
1) за какое время тело,начавшее падение вниз из состояния покоя,пройдет...
1
Вфайле хранятся данные о студентах: порядковый номер, фио, номер группы...
2
Три дочери писательницы дорис кей джуди айрис и линда тоже толантливы...
2
1.просто вещество- неметалл. а) алюминий б) магний в) графит г)железо...
1
Сколько энергии выделяется при охлаждении стальной детали массой 800г...
2
Только , без ! choose the russian translation of the underlined word....
3
Выписать олицетворения в рассказе муму ....
1
86-34 95-23 48-26 74-52 73-55 46-31 в каких разностях удобно заменить...
1
var i,k:integer;
begin
k:=0;
for i:=1000 to 9999 do
if (i mod 2<>0) and (i mod 3<>0) then inc(k);
writeln(k);
end.