решить задачу по информатике на паскале нужно создать - вопрос №20965114 от nastafil30 29.11.2020 19:12

Question

Информатика: решить задачу по информатике на паскале нужно создать задача вот такую: Даны два прямоугольника. Значения сторон вводятся через массив случайным образом.Напишите программу вычисляющую площадь каждого прямоугольника, и вывести на экран их значение. Какой код нужно написать, чтобы всё получилось

nastafil30 · Answer

program ploshchad_dvuh_pryamougolnikov;

var A,B:array[1..2] of integer;

S1,S2:integer;

begin

for i:integer:=1 to 2 do begin

randomize;

A[i]:=random(100)+1;

B[i]:=random(100)+1;

end;

S1:=A[1]*A[2];

S2:=B[1]*B[2];

writeln('Площадь первого прямоугольника равна '+S1+'см²');

writeln('Площадь второго прямоугольника равна '+S2+'см²');

end.

Объяснение: