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

Найти все двузначные числа, кратные 3. паскаль. через repeat, until

Ответ:

ALMUGGG

02.10.2020 20:04

Var
a, i: integer;

begin
a:=0;
i:=10;
repeat
if ((i mod 3) = 0) then
a:=a+1;
i:=i+1;
until i = 100;
writeln(a);
end.

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

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

Russland2000

03.06.2023 20:26

Решить в pascal abc на столе разбросано n монет различного достоинства(достоинство каждой монеты не известно). после того какодинаковые монеты разложили в кучки (в каждой кучке...

anelochka

16.05.2023 22:23

Подсчитать количество отрицательных, нулевых и положительных элементов массива с номерами позиций, кратных двум, начиная с первого. размер носить массива произвольная...

дилли1

16.05.2023 22:23

Две минуты записи цифрового аудиофайла занимают на диске 5,1 мб. частота дискретизации - 22050 гц. какова разрядность аудиоадаптера (глубина кодирования звука)?...

anastasia1medvedeva

16.05.2023 22:23

Объем свободной памяти на диске - 0,01 гб, разрядность звуковой платы - 16. какова длительность звучания цифрового аудиофайла, записанного с частотой дискретизации 44100 гц...

Police222

16.05.2023 22:23

Установите соответствие: а) adobe photoshop б) corel draw с) компас 3d d) adobe flash 1) векторный редактор 2) анимационный пакет 3) растровый редактор 4) инженерный пакет...

alinab346

04.10.2021 19:38

Выбери правильную команду присваивания. S=:9; S=9; Б:=9; Б...

ясмина115

12.02.2022 22:14

Как ввести в массив рандомные числа, длинна массива равна количеству рандомных чисел, что бы эти числа не повторялись? Phyton...

alina20067

29.08.2022 16:19

9. Найти вес воздуха в комнате размером 200*250*100 см. Сделайте чертёж в масштабе, показать вес тела....

Julia77707

09.04.2023 05:54

Ғалам дегенді қалай түсінесіңдер...

MaliaCr

07.08.2021 07:36

Найдите сумму первый 17 членов арифметической прогрессии: -16; -10; -4...

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

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