Напишите для робота алгоритм, закрашивающий все клетки расположенные непосредственно левее левой вертикальной стены и непосредственно правее правой вертикальной стены. робот должен закрасить только клетки, удовлетворяющие данному условию.
Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i); end; end.
//1б Var i,x1,x2:integer; begin for i:=10 to 99 do begin x1:=i mod 10; x2:=i div 10; if x1+x2+sqr(x1+x2)=i then writeln(i); end; end.
//2 Var i,n,a,k1,k2:integer; begin readln(n); for i:=1 to n do begin readln(a); if a<1985 then k1:=k1+1; if a>1990 then k2:=k2+1; end; writeln('Родившиеся до 1985:',k1); writeln('Родившиеся после 1990:',k2); end.
var a: array[1..n] of real; i: integer; sum: real;
begin {ввод массива} writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100) - 50; write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет суммы и произведения} sum := 0; for i := 1 to n do begin if a[i] > 10 then sum := sum + a[i]; end; writeln('sum = ', sum); end.
использовать Робот
алг
нач
нц пока снизу стена
влево
кц
вниз
нц пока справа стена
закрасить
вниз
кц
влево
нц пока сверху стена
вправо
кц
вверх
нц пока слева стена
закрасить
вверх
кц
кон
Код лучше всего писать через верхнюю панель ⇒ "вставка"