Поочередно вводятся целые числа, не превышающие по значению 100. Для каждого из них нужно вывести результат от целочисленного деления на 2. Если вводится число больше 100, цикл прекращает работу.

160

183

Посмотреть ответы 2

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

ariana76

Информатика

4,8(28 оценок)

var

n:integer;

begin

write('Введите число <=100: '); readln(n);

if n>100 then

exit

else

repeat

writeln('Результат: ',n div 2);

write('Введите число <=100: '); readln(n);

until n>100;

end.

Если моё решение вам , отметьте его как лучшее ! Удачи!

UliaOlolenko464

Информатика

4,6(82 оценок)

Объяснение:

//fpc 3.0.0

program HelloWorld;

Var a,b,c:Integer;

begin

readln(a);

readln(b);

if a> b then c:=a else c:= b;

writeln(c);

end.

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.