// Pascal
var
a,x,y:real;
begin
readln(a,x,y);
S := abs(a) + sqrt( x+y*y );
writeln(S);
end;
V=10000*4=40000
<span>VДиска=1024*6*1024*8=50331648
</span><span>Содержится=50331648/40000=1258.12</span>
Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.
Пример отсортированной информации по алфавиту :
журнал классного руководителя