Использовать Робот
алг
нач
закрасить
закрас
закрас
кон
алг закрас
нач
нц пока слева свободно
закрасить
влево
кц
нц пока сверху свободно
закрасить
вверх
кц
нц пока справа свободно
закрасить
вправо
кц
нц пока снизу свободно
закрасить
вниз
кц
кон
8 00-8 45
8 50-9 35
9 40-10 25
10 30- 11 15
11 20-12 05
Program num1;
Uses crt;
Var
a :array [1..10] of integer;
i : integer;
Begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']=');readln(a[i])
end;
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln('********************************');
for i:=1 to 10 do
writeln('a[',i,']=',a[i]);
End.
Янт, ты любишь разговаривать по телефону? (Да\Нет)
Янт, ты разговариваешь? (Да\Нет)
—————————————————————
Янт, кому ты звонишь? (Нельзя ответить да \нет)
Янт, придумай сам этот вопрос.
program crash;
var n, k: integer;
r: real;
begin
write('n = ');
readln(n);
k := 0;
r := 0;
while n > 0 do
begin
k := k + 1;
r := r + (n mod 10) / (k * k);
n := n div 10
end;
writeln('r = ', r:0:14);
readln
end.