5.
Проверка:
javascript:var x=5,y=25;while(x!=y){if(x>y)x-=y;else y-=x;}alert(x);
256 вариантов - это 1 байт. 15 байт. И еще буквы
Формулы: C=2πR, S=πR²
program zadacha;
uses crt;
var r: integer;
c, s: real;
begin
clrscr;
write ('vvedite radius: ');
readln (r);
c:=2*pi*r;
s:=pi*sqr(r);
writeln ('dlina okruzhnosti=', c:0:5, ', ploschad=', s:0:5);
readkey;
end.
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) во вложении.
var
x: array of string;
y: string;
begin
readln(y);
x := y.Split(' ');
y := x[0];
foreach w: string in x do
if (y.Length <= w.Length) then
y := w;
writeln(y);
<span>end.</span>