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

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

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

↓

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

lotarev20021

06.04.2022 07:02

Когда и кем были изобретены счетно-перфорационные машины?...

Enot787

07.06.2020 07:37

Названия месяцев года в словарном порядке....

35gf467jh74944v

07.06.2020 07:37

Вставь недостающее число. образец: 11 12 15 16 . ? 8 10 17...

Shadow69moon

07.06.2020 07:37

Найти закономерность: 1 2 2 3 3 4_7_ _ 2 5 3 4 7_ _ _11_ _ 3 5_4_ _6 15_ _ 5_4 7 8_ _ _ _ _...

arlanout

31.08.2022 19:52

Python программалау тілінің интерфейсі берілген ...

fhgghj

02.06.2023 18:48

Программирование линейных алгоритмов. Урок 3 Пзучи предложенную формулу и определи, как изменится значение переплаты, если уменьшить срок ипотеки в два раза и увеличить ежемесячный...

Anasteyzhaaaaaa

16.02.2021 22:36

Напишите код программы, который будет вычислять периметр прямоугольника 1 а=float(input( Введите первую сторону прямоугольника: )) 2 b=float(input( Введите вторую сторону прямоугольника:...

mictermixa1

02.11.2022 10:53

Составить программу для решения следующей : дана длина ребра куба.найти объем куба и площадь его боковой поверхности....

артbig

23.05.2021 16:51

Составить программу для решения следующей : вычислить высоту треугольника,опущенную на сторону а,по известным значениям длин его сторон a,b,c...

ната118845

15.12.2021 18:33

Зверь на букву а растение на букву д овощ на букву в зверь на букву д...

Ответ:

бра4

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 оценок)

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

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