Question

Задача 1.1.Paskal.ABC.net
Создайте программу для вычисления следующих выражений: A:=A+B*C B:=2*C C:=A-B A:=A+B+C, если A:=1, B:=5, C:=10. • При вводе данных оператор read не использовать! • Наберите программу по правилам языка программирования с выводом: writeln(‘Исходные данные’); writeln(‘A=’,A); writeln(‘B=’,B); writeln(‘C=’,C); writeln; writeln(‘Результаты вычисления’); • При выводе на экран значений A, B, C должны быть выведены и формулы.​

Answer 1

Ответ:

program CalculateABC;

var

 A, B, C: Integer;

begin

 A := 1;

 B := 5;

 C := 10;

 

 writeln('Исходные данные');

 writeln('A=', A);

 writeln('B=', B);

 writeln('C=', C);

 writeln;

 

 A := A + B * C;

 B := 2 * C;

 C := A - B;

 A := A + B + C;

 

 writeln('Результаты вычисления');

 writeln('A=A+B*C=', A);

 writeln('B=2*C=', B);

 writeln('C=A-B=', C);

 writeln('A=A+B+C=', A);

 

end.

Объяснение:

Answer 2

program Calculation;

var

 A, B, C: Integer;

begin

 A := 1;

 B := 5;

 C := 10;

 writeln('Исходные данные:');

 writeln('A = ', A);

 writeln('B = ', B);

 writeln('C = ', C);

 writeln;

 A := A + B * C;

 writeln('A := A + B * C = ', A);

 B := 2 * C;

 writeln('B := 2 * C = ', B);

 C := A - B;

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

 A := A + B + C;

 writeln('A := A + B + C = ', A);

 writeln;

 writeln('Результаты вычисления:');

 writeln('A = ', A);

 writeln('B = ', B);

 writeln('C = ', C);

end.