1. var a, b :real;
begin readln(a, b); writeln(sqrt(a*a + b*b)); end.
2. var s1, s2, a1, a2 :real;
begin readln(s1, s2);
if s1 / 3.14159265 < s2 / 4 then writeln('yes') else writeln('no');
end.
3. var x, y :real;
begin readln(x);
if x < -10 then y:=234 - x*x*x else y:=x * x + 54;
writeln(y);
end.
Если в конце предложения нет точки,то получаем: 77 символов * 16 бит = 1232 бита
или 154 байта (1232/8=154)
Клавиатура , она тоже средство ввода информации.
Это значит 3 человека.Тоесть есть отец(он один папа)у него есть сын а у его сына есть ещё сын.Значит его дедушка.
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.