Сижу, ломаю голову над по информатике. суть такова: - вопрос №1223065 от tatata1337 28.03.2021 01:18

Question

Информатика: Сижу, ломаю голову над по информатике. суть такова: составить программу по нахождению заштрихованной области на языке паскаль(язык программирования), но при этом компьютер должен сам придумать числа через randomize ( для буквенных обозначений в формуле).​

tatata1337 · Answer

begin

randomize;

a:= random(40,50);

b:= random(20,30);

a1:= random(20,25);

b1:= random(10,15);

writeln('Длины сторон дачного участка:');

writeln('Длина: ',a,' м');

writeln('Ширина: ',b,' м');

writeln;

writeln('Длины сторон дома:');

writeln('Длина: ',a1,' м');

writeln('Ширина: ',b1,' м');

writeln;

c:= a*b-a1*b1;

writeln('Площадь свободного участка: ',c,' м²');

end.

Программа написана на языке PascalABC.NET