Program z1;
var a,b,c,p:double;
begin
readln(a);readln(b);
c:=sqrt(a*a+b*b);
p:=a+b+c;
writeln(p);
readln
end.
Номер 8.
Ответ: 10111000 - расшифровка НОС
Номер 9.
АБЕКАБВКАБВГКАВКАВГКАГКАГЖКАДЖК
Ответ: 8
10.
Сайт будет такой
http://gov.org/txt.net
Варианты ответа не видны, но если подставить, то можно составить ответ
Ответ: во вложении во вложении
uses Crt;
var a, b, temp, i, S:integer;
begin
ClrScr;
Write (' a = '); ReadLn(a);
Write (' b = '); ReadLn(b);
S:=0;
i:=a;
while i<=b do
begin
if (i mod 2 = 0) then S:=S+i;
i:=i+1;
end;
WriteLn(' S = ', S);
ReadLn;
end.