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

Вывести трехзначные числа кратные 7 используя while pascal

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

↓

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

natulina2009

28.05.2022 00:34

Как включить чувство стихии в геншин импакт на телефоне?...

Miraflores18

06.01.2022 03:03

На сковородку одновременно можно положить k котлет. Каждую котлету нужно с каждой стороны обжаривать m минут непрерывно. За какое наименьшее время удастся поджарить...

Maksim200316

07.06.2021 08:14

Перевести дату рождения (10.07.2005) из десятичной системы в двоичную....

Настя097343

21.04.2023 06:13

До пятницы 17. какое из расширений не относится к графическому файлу? а) jpg б) doc в) bmp г) cdr 18. можно ли закодировать 7 цветов в палитре, где на один цвет...

violettakot01

07.12.2021 17:10

По данной готовой программе составить алгоритм и блок схему program pifagor ;var i,j:Integer;p:Integer;beginwrite( :4);for j:=1 to 10 dowrite (j:4);writeln;for i:=1...

NickMean

30.09.2022 05:37

Напишите минимальное основание системы счисления, допустимое для данных чисел. ответ обосновать. 1) 11025 2) 201021 3) 345 4) а13 5) 8с710 6) 302047...

milana0372milana

08.08.2022 13:10

Стр.96 вопросы 10,16 письменно 5 класс. !...

krasivak

21.04.2022 19:19

На рисунке проиллюстрирована двухзвенная клиент северная архитектура.как называется второе звено этой архитектуры? ...

Behheheh

04.11.2020 07:51

Как называется табличная информационная модель, отражающая качественный характер связей между объектами? a) карта b) матрица c) чертеж d) график...

dzyadukh1

08.11.2022 18:08

Определите значение переменной а после выполнения фрагмента программы: а = 25 если а 5 то а=5 все...

Ответ:

SnowWhite98

06.10.2020 16:07

Var n: integer;
begin n := 100; while (n <= 999) do begin if n mod 7 = 0 then write(n, ' '); n += 1; end;end.

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

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

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