1 10
2 35
3 Количество цифр и сумма цифр
4 1.1
5 16
В вашу исходную программу, после Task('cif2'); надо добавить следующие строки, задающие алгоритм действий для робота:
while FreeFromRight do
begin
Right;
if WallFromUp then Paint;
if WallFromDown then Paint;
end;
Или, можно ещё немного сократить, объединив два условия в одном if (если вы уже проходили логические операторы OR):
while FreeFromRight do
begin
Right;
if WallFromUp or WallFromDown then Paint;
end;
1.840.000.000 , поэтому либо 2 либо 3 вариант ответа
Форма шаровидная, размер небольшой, цвет любой, поверхность гладкая, запах слабый или отсутствует, вкус сладкий
Var a, b, n, i:integer;
s :array [1..10] of integer;
begin
read (n);{Размер массива}
for i:=1 to n do
begin
s[i]:=-50+random(99);
write (s[i],' ');
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>