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.
(см. объяснение)
Объяснение:
Первую программу пишу тебе твоим школьным языком. На примере второй программы я покажу тебе возможности Pascal, которые позволяют решить ее в 1 строчку кода.
Задание №1:
program task1;
var a: array [1..7] of integer;
i,k: integer;
begin
randomize;
k:= 0;
for i:= 1 to 7
do begin
a[i]:= random(50)-1;
if(a[i] mod 3 = 0) then a[i]:= 0
else if(a[i] = 7) then k:= k+1;
end;
write('Массив с замененными числами: ');
println(a);
writeln('Количество элементов, равных 7: ', k);
end.
Задание №2:
begin 'Сумма элементов массива: '.Concat(IntToStr(ArrRandom(10, 0, 70).Sum)).Print; end.
