Pazitifon3000
06.08.2021 09:44

Вpascal abc. подсчитать количество двузначных чисел, которые кратны 3

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Dover1488
20.07.2020 12:00
12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60, 63, 66, 69, 72, 75, 78, 81, 84, 87, 90, 93, 96, 99. Итого 30.
0,0(0 оценок)
Ответ:
yakovleva03ow836v
20.07.2020 12:00
Const
  start=12; //наименьшее подходящее число
  max=100;  //первое число, идущее после всех двузначных
  step=3;   //разность между подходящими числами
var
  x,i:integer;
begin
  x:=start;
  i:=0;
  while x<max do begin
    i:=i+1;
    x:=x+step;
  end;
  writeln('Количество искомых чисел: ',i);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота