Question

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

Answer 1

Ответ:

program arithmetic;

var

A, B, C: real;

begin

write('Введите значение A: ');

readln(A);

write('Введите значение B: ');

readln(B);

C := A - B; { C = A - B }

writeln('C = A - B = ', C:0:2);

if A * B + B > A + B then { A*B+B > A+B }

writeln('A*B + B > A + B')

else

writeln('A*B + B <= A + B');

C := C + A; { C = C + A }

writeln('C = C + A = ', C:0:2);

readln;

end.

Объяснение:

В даній програмі вводяться значення змінних A і B, обчислюється C = A - B, виводиться на екран значення C, перевіряється умова A*B+B > A+B, виводиться на екран відповідне повідомлення, та обчислюється C = C + A та виводиться на екран.