Регистрация
Лидия99
04.12.2022 04:44
Информатика
Есть ответ 👍

Ребяяят с информатикой
Буду сильно благодарен вам за это

245
310
Посмотреть ответы 1

Ответы на вопрос:

vitalyrtss
vitalyrtss
4,7(54 оценок)

var

a, b:integer; - объявляем переменные

begin - старт программы

writeln(' '); - вывод пустрой строки

readln(a); - считываем текст с клавиаатуры и записываем его в переменную 'a'

b:=2; - Задаём значение 'b' равное двум

while (b<=a) and (a mod b <>0) do - запускаем цикл , если b меньше или равно a и если остаток от деления не равен нулю)'

b:=b+1; - увеличиваем значение 'b' на еденицу.

writeln(' ', b); - вывод переменной 'b'

end. - Конец  программы

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