Программа для паскаля найти площадь и периметрарямоугооьника

Question

Информатика: Программа для паскаля найти площадь и периметрарямоугооьника

Tittans7 · Accepted Answer

// Форматирование вывода вещественного числа можно поставить как нравится, я выбрал 3:3

// Считал, что доля с участием нуля равна 0%

program Calc;

var a, b: integer;

begin

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

readln(a);

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

readln(b);

writeln(a, '+', b, '=', a + b);

writeln(a, '-', b, '=', a - b);

writeln(a, '*', b, '=', a * b);

if (b = 0) then begin

writeln(a, '/', b, ' не определено');

writeln(a, ' составляет 0% от числа ', b);

end

else begin

writeln(a, '/', b, '=', (a / b):3:3);

writeln(a, ' составляет ', (a / b * 100):3:3, '% от числа ', b);

end;

if (a = 0) then

writeln(b, ' составляет 0% от числа ', a)

else

writeln(b, ' составляет ', (b / a * 100):3:3, '% от числа ', a);

end.

Ответы на вопрос: