1. Информатика
  2. Найти все двузначные числа,

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

gamer0072 gamer0072    1   04.07.2019 10:01    0

Ответы
polinka2002761 polinka2002761  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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
krubl krubl  17.07.2019 05:30
Паскаль 1. написать программу, которая запрашивает стоимость 1 л молока и выводит на экран таблицу стоимости 100г, 200г, 300г….900г 2. написать программу, которая запрашивает...
Илья281382 Илья281382  17.03.2021 11:24
Временно потерянный объект называется накопленной папкой.​...
Kyle147Rein Kyle147Rein  07.07.2019 15:10
Надо написать в языке программирования pascal программу, которая выводит максимальное отрицательное число. буду ))...
varavarlamova19 varavarlamova19  07.03.2019 11:24
50 даны инструменты. необходимо определить, к какой группе инструментов они относятся. яркость относится к ?...
chokopaii chokopaii  17.10.2021 18:14
для исполнителя чертеженик составьте алгоритм построения следующей фигуры:ПРИСЛАТЬ СКРИНШОТ , А НЕ САМ АЛГОРИТМ. буду весьма благодарна...
dghtf dghtf  17.10.2021 18:11
Информационное сообщение объёмом 250 бит состоит из 50 символов. Какова максимально возможная мощность алфавита, с которого записано это сообщение?...
pedyxa12 pedyxa12  16.01.2022 08:37
Доповни короткий запис і схему. Розв яжи задачу Альбом і фарби коштують разом 150 грн, а фломас- тери та фарби коштують 140 грн. Визнач ціну альбому коробки фарб та...
пиrotехник пиrotехник  16.01.2022 08:38
Расчитать стоимость электро энергии за месяц любой бытового прибора ( не компьютер, не элк. чайник....
Mikhail55Rus Mikhail55Rus  16.01.2022 08:39
Сфера з центром A(1; 1; 1) проходить через точку M(2; –1; 8). Знайдіть площу сфери....
Буууууууууууууурито Буууууууууууууурито  16.01.2022 08:39
Найдите значение выражения....

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