Составить программу для вывода на экран чисел кратных 3 от 60 до 3

@Mupil · Регистрация: 17.02.2020

Студворк — интернет-сервис помощи студентам

Составить программу для вывода на экран чисел кратных 3 от 60 до 3. Найти количество этих чисел.

Добавлено через 2 минуты

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program dzmikhaila;
 
var
 i : integer;
 k : integer;
 
begin
  i := 60;
  k := 0;
  while i>= 3 do 
  begin
    write(i, ' ');
    k := k + 1;
    i := i -3;
  end;
  writeln;
  writeln( ' Количество всех чисел ', k);
end.

@ProMix0 · 22.02.2020, 10:19

Pascal
1
2
3
begin
  3.to(60).Where(n -> (n mod 3) = 0).Println.Count.Print;
end.

@Puporev · 22.02.2020, 10:37

Pascal
1
60.downto(3).Where

@Sun Serega · 22.02.2020, 10:50

Pascal
1
2
3
4
begin
  Range(60,3,-3).Println
  .Count.Println;
end.

@Andrew_97 · 05.03.2020, 20:15

Pascal
1
2
3
4
5
6
7
8
9
var i,k:integer;
 
begin
  k:=0;
  for i:=60 downto 3 do
    if i mod 3 = 0 then
      inc(k);
  write('Количество:',k);
end.

@Пс · 06.03.2020, 08:37

Andrew_97

Сообщение от Andrew_97

k:=0;

Не обязательно присваивать только созданной переменной значение "0",при объявлении переменных числового типов,у них по умолчанию значение будет равно "0".
и еще,для цикла(в вашем случае) не обязательно объявлять переменную "i"

Pascal
1
2
3
4
5
6
7
8
9
var k:integer;
 
begin
  k:=0;
  for var i:=60 downto 3 do
    if i mod 3 = 0 then
      inc(k);
  write('Количество:',k);
end.

И лучше вообще отказаться от глобальных переменных,а объявлять их внутри блока begin-end

Pascal
1
2
3
4
5
6
7
begin
 var k:integer; 
  for var i:=60 downto 3 do
    if i mod 3 = 0 then
      inc(k);
  write('Количество:',k);
end.

Добавлено через 2 минуты
Andrew_97, По заданию сказано,что еще нужно вывести эти элементы,а не только их количество

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .