1. Информатика
  2. Винтервале от 1 до 100 натуральных

Винтервале от 1 до 100 натуральных чисел вывести числа делящиеся на 5. напишите в паскаль и если можно схему.

валерия821 валерия821    2   28.07.2019 05:30    1

Ответы
Настя456456 Настя456456  03.10.2020 15:11

var i:integer;

begin

for i:=1 to 100 do

if i mod 5=0 then write(i,';' );

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alexaaa2 alexaaa2  12.12.2019 18:23
Основной элемент, который не характеризуют электронную таблицу.а) первичный ключ в) битс) байтd) ячейка е) код​...
artyomfyodorov artyomfyodorov  12.12.2019 18:27
Создать программу: ввести несколько целых чисел, числа вводить до тех пор, пока не ввели 0. найти две суммы - четных чисел и нечетных чисел. вывести сначала сумму четных...
алхожа алхожа  12.12.2019 18:27
запишите алгоритм постройки ханойской башни из 4 элементов....
maxcarleson1 maxcarleson1  12.12.2019 18:30
Дана строка, состоящая из двух слов. вывести на экран отдельно каждое слово vba...
drovniashinaan drovniashinaan  12.12.2019 18:30
Дан одномерный массив из n элементов, которые случайные целые числа из промежутка -5 до 15. определите сумму всех элементов....
polinka20042014 polinka20042014  12.12.2019 18:32
Дано натуральное число s. дана последовательность 5, 9, 13, сколько слагаемых следует взять, чтобы получить сумму, равную либо превышающую s? результат вывести на экран vba...
REDFRAG REDFRAG  12.12.2019 17:14
Как сделать такую рамку в ворде? ​...
никто271 никто271  12.12.2019 17:14
Паскаль ,цикл while, запросить 6 чисел и вывести их среднее арифметическое значение и счётчик начинается с 1​...
yuliyasss yuliyasss  12.12.2019 17:14
3. нанести на координатную плоскость точки: 1(2,4); 2(2,6); 3(6,10); 4(8,10); 5(10,8); 6(12,10); 7(14,10); 8(14,8); 9(12,8); 10(10,6); 11(12,4); 12(10,4); 13(8,6); 14(6,6);...
бог100001 бог100001  12.12.2019 17:16
Ка-ко-ва сум-мар-ная масса гру-зов пе-ре-везённых с 3 по 5 ок-тяб-ря? ответ на этот во-прос за-пи-ши-те в ячей-ку н2 таб-ли-цы​...

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