Ответ:
uses Robot;
begin
Task('cif2');
while FreeFromRight do
begin
if WallFromUp or WallFromDown then paint;
right
end;
if WallFromUp or WallFromDown then paint
end.
K = 40*64*2
i - 16 бит
I - ?
Реш.
I = K*i = 40*64*2*16 бит = (40*64*2*16)/8 байт = 40*8*2*16 байт = (40*8*2*16)/1024 Кбайт = сокращаешь получается 10 Кб
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
Writeln('Вводите a1, a2, ...: ');
Writeln(sqrt(ReadSeqReal(n).Select(x->x*x).Sum))
end.
<u>Пример</u>
n= 4
Вводите a1, a2, ...:
3 2.5 6.1 -5.2
8.9162772500635
Var
s1,s2,s3,s4:string;
k:integer;
begin
writeln('Введите 1 слово:');
readln(s1);
writeln('Введите 2 слово:');
readln(s2);
writeln('Введите 3 слово:');
readln(s3);
writeln('Введите 4 слово:');
readln(s4);
writeln('Список одинаковых слов');
if (s1=s2)or(s1=s3)or(s1=s4) then begin k:=1; writeln(s1); end;
if (s2=s3)or(s2=s4) then begin k:=1; writeln(s2); end;
if s3=s4 then begin k:=1; writeln(s3); end;
if k=0 then writeln('Одинаковых слов нет');
end.
ЛУВР-чётное: АЛУВР ~ БМФГС.
БМФГС -нечётное: БМФГ ~ ВНХД.