Ответ:
Объяснение:
Надеюсь почерк разберешь) Не умею в паинте писать красиво
<u>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
WriteAllText('out.txt',(a*a+b*b+c*c).ToString)
end.
Ответ:
===== PascalABC.NET =====
var
a,b : integer;
begin
writeln('введите a,b');
readln(a,b);
if a>b then a:=a-b
else b:=b-a;
writeln('Максимальное = ',max(a,b));
end.
Объяснение:
3) Из пункта А в З :
АГЗ,АГВЖЗ,АВЖЗ
Ответ:3
Сорян, 4 задание не видно((Можешь в лс кинуть,я решу)