uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.
Ответ дал: Гость
var x1,x2,x3,x4,x5: integer;
s: real;
begin
read(x1,x2,x3,x4,x5);
s: = (x1+x2+x3)/(x4+x5);
if round(s)=s then writeln("celoe - "s);
end.
Ответ дал: Гость
а необходимо
б достаточно
в необходимо
г достаточно
д необходимо и достаточно
Ответ дал: Гость
в первом будет такая закономерность +2,*2,-2 и соответственно 1,3,6,4,6; во второй будет такая: -2; +3; - 9,7,10,8,11; и последняя -1,-1,+5,-1,-,2,1,6,5,4,3.вот и все)
Популярные вопросы