Pascal доработать программу program DemoWriteln; {Программа вычисляет и выводит площадь прямоугольника}
var
A, B, S : integer; {A, B – длина сторон, S – площадь}
begin
A := 8; {А присвоить 8}
B := 4; {B присвоить 4}
S := A * B;
writeln(''); {всего 40}
writeln(': Сторона A : Сторона B : Площадь : Периметр :');
writeln('');
writeln(':', A : 7, B : 11, S : 11, ':':5);
writeln('');
readln;
readln
end.

после расчета площади прямоугольника добавить вычисление периметра прямоугольника;
вместо операторов присвоения значений величинам A и B, выполнить приглашение для ввода и ввод значений этих переменных. Приглашение для ввода оформляется следующим образом:
writeln (‘Введите A’);
Ввод значений оформляется оператором readln;
составить блок-схему алгоритма, который реализован данной программой с учетом внесенных изменений

Ннггген1113    3   20.11.2021 14:07    0