3) Из пункта А в З :
АГЗ,АГВЖЗ,АВЖЗ
Ответ:3
Сорян, 4 задание не видно((Можешь в лс кинуть,я решу)
№3
program fofgogjoj;
var
a,b,c,S,P:real;
begin
Writeln('Введите длину катета a');
Readln(a);
Writeln('Введите длину катета b');
Readln(b);
c:=sqrt(a*a+b*b);
P:=a+b+c;
S:=(1/2)*a*b;
Writeln('P=', P:0:2);
Writeln('S=', S:0:2);
end.
Var i,j:integer;
Begin
for i := 1 to 9 do
for j := 1 to 9 do
if (i+j=i*j) then
writeln(10*i+j);
End.
Uses CRT;
Const
Delay = 200; //Задержка в миллисекундах
Line = 22; //Номер строки, на которой будет текст
Text = 'Бегущая строка'; //Текст бегущей строки
Var
i: Integer;
s: String;
Begin
s := Text;
For i := 1 To 80 Do
Begin
GotoXY(1, Line);
TextColor(Random(14) + 1);
WriteLn(s);
s := ' ' + s;
Sleep(Delay);
End;
End.
Пробегаем один массив, находим индекс максимального элемента
также и второй
меняем местами значения