Обьесните каждую команду каждую строчку что где происходит 35
program z_8;
var i, s2, s3, s4, s5: integer;
a: array [1..20] of integer;
begin
for i: =1 to 20 do begin
a[i] : = random(2, 5);
if a[i] = 2 then s2: =s2+1;
if a[i] = 3 then s3: =s3+1;
if a[i] = 4 then s4: =s4+1;
if a[i] = 5 then s5: =s5+1;
end;
writeln('двоек: ', s2, '; троек: ', s3, '; четверок: ', s4, '; пятерок: ', s5);
end.
Далее, разберём сам код:
С самого начала программа предлагает ввести площадь квадрата и площадь круга ("WriteLn('Введите S1 и S2: '); ") и записывает введённые значения в переменные
Следующий шаг программы - "Dr := SQRT(4 * S2 / Pi); " - вычисляет диаметр круга согласно формуле
Следующими действиями программа сравнивает два диаметра, один из которых был получен путём использования значений квадрата, а другой - значений круга. То есть, программа, сравнивая эти два значения диаметра, определяет, может ли квадрат быть вписан в круг, согласно данных, введённых пользователем, о площадях этих двух фигур.
Текст задачи может быть сформулирован так же: Напишите программу, которая бы определяла, может ли быть вписан квадрат в круг, исходя из значений их площадей, введённых пользователем.