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

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

Ответ:

24j18g81B

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

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

zudavaikin

04.07.2021 14:05

На столе стоят два стакана: пустой и наполненный водой. сообщение о том, что вы взяли пустой стакан, несет бит информации....

Basrad

06.08.2020 02:48

№4.а) установите соответствие.количество символов в сообщениимощность алфавитаинформационный вес символа алфавитаколичество информации в сообщенииб) выпиш тите основные сформулы,...

razumovnikita51

10.04.2020 20:42

Текст состоит из символов: букв, цифр, знаков препинания. как компьютер их различает? по их изображению коду по их сигналам по их двоичному коду...

madina20042004

27.07.2020 05:36

Расположите по порядку оформление автооглавления...

Ivankozyr69gmail

13.01.2023 19:29

Как называются программы-переводчики, которые осуществляют перевод в реальном времени и работают при непосредственном подключении к сети интернет? блокнот онлайн букварь...

Судзуми777

03.08.2020 11:19

8. Запи (-ева 1 вариант Тематическое оценивание No 1 Глагол 1. Укажите глаголы совершенного вида: а) перечитывать; в) переплетает; б) зазвeнeть; г) подготовили. 2. Запишите...

kotBarsik14

03.11.2021 19:24

объясните, какими физическими свойствами будет обладать вещество с металлической кристаллической решёткой...

bonich04

17.06.2022 20:19

Доведіть, що поема Байрона «Мазепа»- романтична...

sevaismailova2

17.12.2022 23:55

ПЕРЕВЕДИТЕ НА АНГЛИЙСКИЙ ЛАМ 1)К тому времени вода в луже на дороге уже высохнет....

JackBllizard

12.02.2022 01:36

Ск тебе лет? просто ответь...

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

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