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

Паскаль какие натуральные числа от 1 до 100 кратны 6?

Показать ответ

Ответ:

Typists1

08.09.2020 21:53

Program n1;
var i: integer;
begin
for i:=1 to 100 do if i mod 6=0 then write(i,' ');
end.

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

Ответ:

tigertuborg

08.09.2020 21:53

Program prog;
var i:integer;

begin
for i:=1 to 100 do
if i mod 6 = 0 then
write(i, ' ');
end.

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

Популярные вопросы: Информатика

Anna45891

08.05.2021 02:23

Определите, чему будет равно значение переменной x после выполнения такой программы :x : = 1;while (x div 10 5) and (x 49) do x := x + 1;...

Прммрррр

30.05.2023 20:01

2. В одной из кодировок Unicode каждый символ кодируется 16 битами. Вова написал текст (в нём нет лишних пробелов): «Медведь, тигр, слон, варан, тюлень, носорог,...

Abdurauf2004

07.03.2023 02:47

Створіть інформаційну модель для вивчення вимірювальних приладів на уроках фізики. 1. Зобразіть у текстовому процесорі структурну модель (у вигляді схеми аботаблиці)...

Никалкова

25.03.2020 16:27

Напишите программу, которая B последовательностн натуральных чисел определяет произведение чисел, кратных 9. Программа получает на вход количество чисел в последовательности,...

Julia1331

27.04.2022 17:26

Вывести все простые делители чисел от 325645 до 325665...

Каала

07.04.2021 06:23

Рассмотрим несколько программ. В начале каждой программы робот стартует из одной и той же клетки.В каждой программе отметьте строчки, которые выполнит робот.Нас интересуют...

уяеный222

12.12.2020 04:10

составить программу паскаль для нахождения корней ax^2+bx+c=0, где a, b, c - действительные...

stella33

22.02.2020 23:53

Вот такую програму надо составить...

annakostomarova

01.02.2020 06:05

Наименьшим элементом изображения на графическом экране является: а) курсор б) символ в) пиксель г) линия...

kirushinad1

07.08.2020 00:56

Отметьте в каких примерах кода нет ошибок if free_from_up():move_up)fill_cello)move_upif free_from_right():move_down()fill celloif cell_is_clean():fill cellofill_cello)else:if...

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

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