var
menu, D, S: integer;
begin
Writeln('Введите значение меню');
Writeln('1 - известна большая диагональ');
Writeln('2 - известна меньшая диагональ');
Writeln('3 - Диагонали не известны');
Readln(Menu);
case menu of
1:
begin
Writeln('Введите площадь и значение большей диагонали');
Readln(s, d);
Writeln('Длина меньше диагонали равна: ', (2 * s) / d)
end;
2:
begin
Writeln('Введите площадь и значение меньшей диагонали');
Read(s, d);
Writeln('Длина меньше диагонали равна: ', (2 * s) / d);
end;
3:
Writeln('К сожалению волшебства не будет');
end;
end.
54 - 20 - 10 - 14 = 10
26 + 15 + 44 + 91 = 176
21 × 15 × 12 × 34 = 128520. • А если всё вместе, то: 26 × 21 - 15 + 48 = 26 × 21 = 546; 546 - 15 = 531; 531 + 48 = 579.