Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
решение в среде Паскаль:
Var a:array[1..10] of Integer; i,s,m: integer; f,t:real;
begin
s:=0;
writeln('write marks');
For i:=1 to 10 do begin
readln(a[i]);
If i>1 then begin
If a[i-1]=2 then begin
If a[i]<>2 then begin s:=s-2; m:=m-1; end;end;end;
s:=s+a[i];
m:=m+1;
end;
f:=s/m;
t:=Int(f);
Writeln('His or her mark is ', t:2:0);
readln;
end.
Программа для среды программирования Кумир:
использовать Робот
алг
нач
лог прав=да
цел x=0, y=0
нц
если (mod(div(y,2),2)=0) = (mod(x,2)=0) то закрасить все
выбор
при прав и справа свободно: вправо; x:=x+1
при не прав и слева свободно: влево; x:=x-1
при сверху свободно: вверх; прав:=не прав; y:=y+1
иначе выход
все
кц
кон