<span>
1) {найти квадрат числа}</span>
<span /><span><span>var k:</span>real;</span><span />
<span>begin
</span><span>read(k);
</span>
<span>k:=k*k;
write(k);</span><span><span /><span>end.</span></span>
<span><span /></span>2) {задача с оценками}
<span><span><span><span>v</span></span></span></span><span><span><span><span>ar i:</span>integer; </span></span></span>
<span><span><span>a,b,c,d,e: 2..5;</span></span></span>
<span><span><span>sred:real;</span></span></span>
<span><span><span /><span>
begin
</span><span>write ('Введите оценки, после каждой Enter');</span><span /></span></span>
<span><span><span>read(a);
read(b);
read(c);
read(d);
read(e);
</span></span></span>
<span><span><span /><span>sred:=(a+b+c+d+e)/5;</span></span></span>
<span><span><span /><span /><span><span>if sred >= </span>4.5 then writeln('Тебе подарят плеер и роликовые коньки!')</span><span /></span></span>
<span><span><span /><span><span>else if (sred >=</span>3.5<span>) and (sred <</span>4.5<span>) then</span></span><span>writeln('Увы, тебе подарят только плеер');</span><span><span /></span></span></span>
<span><span><span><span /><span>end.</span></span></span></span>
1) А:174; Б: понятия не имею
2) 6450 или 1100100110010
3) 3 бита
Обращайте внимание на кол-во раз которое нужно повторить команду, если например вам будет дано повтори 4 [вперед n направо 60] то получится незамкнутая ломаная линия, о шестиугольнике и речи идти не может. расстояние которое черепашка должен пройти вперед не имеет никакого значения, главное чтоб оно было больше единицы, чтоб он не крутился на месте.
Ответ:
program arrdiap;
var
N, A, B, i: Integer;
M: array of Integer;
begin
Write ('Введите размерность массива: ');
ReadLn (N);
SetLength (M, N);
Randomize;
for i := Low (M) to High (M) do begin
M [i] := Random (100);
Write (M [i], ' ');
end;
WriteLn;
Write ('Введите диапазон A, B: ');
ReadLn (A, B);
WriteLn;
WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');
for i := Low (M) to High (M) do begin
if (M [i] >= A) and (M [i] <= B) then
Write (M [i], ' ');
end;
ReadLn;
end.
1)Друга ищи, а найдешь - береги. 2) Старый друг лучше новых двух.