Харпааа
01.01.2022 14:01

Нужно внести изменения в программу, чтобы n показывало количество чисел, кратных 3.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Madwoman17
09.06.2020 12:09

Var a, b, n:integer ;

Begin

A:=10;

B:=33;

N:=0;

While a<=b do begin

If a mod 3=0 then begin

Write(' a=', a) ;

N:=n+1;

End;

A:=a+1;

End;

Writeln(' n=', n) ;

End.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота