Var a,b,c: real;
Begin
Writeln ('введите a,b,c');
Readln (a,b,c);
If a+b=c then writeln (a,' + ',b,' = ', c) else
If a+c=b then writeln (a,' + ',c,' = ',b) else
If b+c=a then writeln (b,' + ',c,' = ',a) else writeln ('нет такого числа');
End.
Номер 8. Ответ: 10111000 - расшифровка НОС Номер 9. АБЕКАБВКАБВГКАВКАВГКАГКАГЖКАДЖК Ответ: 8 10. Сайт будет такой http://gov.org/txt.net Варианты ответа не видны, но если подставить, то можно составить ответ
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) //Наверное здесь опечатки 1+1/1+2+1/1+2+3+···+1/1+2+···n скорее всего имелось ввиду так: //1+1/(1+2)+1/(1+2+3)+···+1/(1+2+···n) var i,n:integer; s,s1:real; begin readln(n); s:=0;s1:=0; for i:=1 to n do begin s1:=s1+i; s:=s+1/s1; end; writeln (s); end.