Войти Регистрация Спроси ai-bota

От 1 до n вывести все числа, которые кратны 3

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

сабина422

11.03.2020 07:24

Найдите ошибки и запишите программу правильно...

kair7775550

01.04.2022 08:10

В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 25 символов в этой кодировке....

Вппгш

19.07.2022 03:37

С клавиатуры вводят произвольное число. Вывести Да , если оно четное и положительное. Иначе вывести Нет . Решить задачу на языке Паскаль и составить блок-схему....

rafael2003ggwp

05.04.2022 00:32

Чем отличаются развернутый план выступления от тезисов выступления?...

altyn02

03.10.2022 14:39

PYTHON писать через логическую фунццию: Напишите логическую функцию, которая определяет, является ли переданное ей число совершенным, то есть, равно ли оно сумме своих делителей,...

romashka1899

01.11.2021 11:49

работа в скрине работа в скрине ) >...

annasmaylick

23.04.2021 14:26

13) Решите задачу. Пять человек живут в одном городе. Их имена: Антон, Владимир, Николай, Олег и Петр. Их Фамилии: Борисов, Галкин, Дроздов, Ежов и Звонков. Известно, что • Антон...

89087039906qazx

06.05.2023 07:08

Запишите числа в порядке возрастания 592, 431, 199, 576, 823...

TuyaraPotapova

03.07.2021 07:44

ИНФОРМАТИКИ, ВЫ ТУТ?!?!? Что здесь нужно сделать я знаю, но вот формулу-нет НАПИШИТЕ ФОРМУЛУ Вот задание Введите в ячейки А1 и В1 два числа и в ячейке С1 запишите действия, указывающие...

kirana05

18.05.2021 01:50

Что такое:1. условия отбора при фильтрации списка в Эксель - это...2. Кнопка на экране связанная с одним листом рабочей книги - это......

Ответ:

nstratonova

04.10.2020 09:20

Var a:integer;
begin
for a:=n downto 1 do begin
if (a mod 3 = 0)
then writeln(a);
end;
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку