//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (x,y):=ReadReal2();
var m: real;
if x<7 then m:=sqrt(2*x)+cos(4*y) else if (x<9) and (x>=7)
then m:=-2*x+5*power(e,-y) else m:=-x*x+3*ln(4*y);
write(m);
end.
Задание 2
а) Ийюпплщз хюп
б) Ягймг пмйофг нспрщлж
Ответ:
program abc;
var s:string;
begin
readLn(s);
writeLn(ord(s[1])+ord(s[2])+ord(s[3])+ord(s[4])+ord(s[5]))
end.
Объяснение:
знаю только первых два: 1024*17=17408
1024*1024*2=2097152