Для данных двух чисел а и b выдать их среднее арифметическое при 2а

var a,b:real;

begin

writeln('Введите a= ');

read(a);

writeln('Введите b= ');

read(b);

writeln('Среднее арифметическое при a=2*',a,' = ',(2*a+b)/2);

end.

Если понравилось решение - ставь 5 звезд и "Лучшее решение"!

a=2

b=8

цикл произошел два раза из-за a:=a+1

значит x равен от 100 до 9999(при прохождении получаются числа от 0,01 до 0,9999)

теперь остался b:

b в начале был равен и получил 8 при цикле. mod узнаёт остаток деления на 100 которое раза. посмотрим если выберем 9999

9999(остаток 99) -> 99,99(остаток 99+99). вывод: программа под буквой b вычислила сумма всех двузначных чисел. значит самое максимальное 800( 8 и 0) т.к. если выбрать больше 999 то 1000 это сумма 10 и 0 что не подходит. а нам надо самое максимальное.

ответ:800

если за одну клетку брать10,то:на векторе х отсчитываем 6 клеток на векторе у 2 клетки и ставим точку далее на х отсчитываем 2 клетки на у 6 клеток и проводим линию,на х18 клеток на у 6 клеток находим точку и проводим линию,на х14 клеток на у 2клетки,прямоугольник:на х 6 клеток на у 8 клеток находим точку и ставим её-это верхний левый угол далее на х 10 клеток на у 6 клеток ставим точку-это правый нижний угол и чертим прямоугольник;далее на х6 клеток на у 8 клеток на х 6 клеток на у 10 клеток чертим прямоугольник: на х10 клеток на у 12 клеток  на х15 клеток на у 6 клеток чертим прямоугольник,окружность на х 14 клеток на у 4 клетки находим точку далее на циркуле ставим радиус в 1 клетку и чертим окружность.Всё.