Question

Составить по представленной блок-схеме программу на языке Паскаль. Текст программы записать в тетрадь. C=A-B да начало Ввод А, В C=AB+B A+B>C Вывод с конец нет C=C+A ​

Answer 1

Ответ: (вот правильный код если я правильно понял)

program Main;

var

 a, b, c: Integer;

begin

 write('Введите a: ');

 readln(a);

 

 write('Введите b: ');

 readln(b);

 

 c := a + b;

 

 if (a + b > c) then

   c := a - b

 else

   c := c + b;

 

 writeln('Результат: ', c);

end.

сработает условия else потому a + b не больше C