1.
1) A + B (складываем)
2) A+B/2 (находим полусумму)
2.
1)A-C ( вычитаем)
2) найти модуль A-C
3.
1)B*C ( умножаем)
2) B*C возводим в квадрат
Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.
В непрерывно выполняющемся.
Картинка длжна быть в папке с программой и быть в формате BMP
Program summa;
var
a,b,c,d,e,f:integer;
begin
Writeln('Введите 5 чисел : ');
readln(a,b,c,d,e);
f:=a+b+c+d+e;
writeln('Сумма чисел = ',f);
readln;
<span>end.
</span>