проверочное слово к слову подметает - Знания.site

проверочное слово к слову подметает
- Предмет:
  Русский язык
- Автор:
  scout22
- 4 года назад

Ответы 1

мЁтлымлрсдопрвлпчдрсделвдчжразггэрдсжрпжадна (Не образай внимание на эту чушь! Кроме самого слова)
- Автор:
  shilohduke
- 4 года назад
- 0
Добавить свой ответ

Еще вопросы

1. При движении автомобиля сила сопротивления оказалась пропорциональной скорости. Чтобы увеличить скорость в 2 раза, нужно мощность двигателя :
а) увеличить в 2 раза
б) увеличить в 4 раза
в) увеличить в 8 раз
г) уменьшить в 2 раза
д) нет правильного ответа

2. Если однородный кирпич, установленный на горизонтальной плоскости, имеет длину а, ширину b, высоту с, причем а>b>с, то его максимальная потенциальная энергия (относительно плоскости) равна:
а) mga
б) mgb
в) mgc
г) нет правильного ответа
- Предмет:
  Физика
- Автор:
  shannon
- 4 года назад
- Ответов:
  
  1
- Смотреть
Развяжите уравнение: 1)1x+2x=x 6 2)x4+x8=1x2
- Предмет:
  Алгебра
- Автор:
  megan73
- 4 года назад
- Ответов:
  
  1
- Смотреть
Выполните умножение ( х - 5у) ( 3у + 2х)
- Предмет:
  Алгебра
- Автор:
  kellen
- 4 года назад
- Ответов:
  
  1
- Смотреть
НЕИЗВЕСНОЕ ИМЯ 'Bullet'
uses GraphABC;
var s:array [,] of integer;
i,x,y,vspeed,x1,y1,x2,y2,n,k:integer;
game_end : boolean;

Procedure Keypress(key:char); begin
if (key='d') and (s[(x div 8)+1,(y div 8)]=0) then
x:=x+8;
if (key='a') and (s[(x div 8)-1,(y div 8)]=0) then
x:=x-8;
if (key='w') and (vspeed=0) and (s[(x div 8),(y div 8)+1]=1) then
vspeed:=-16;
if (key='f') then Bullet()
end;
procedure Keydown(key:integer); begin
if (key=vk_enter) then game_end:=true;
end;
Procedure Bullet();
Begin
Setbrushcolor(clyellow);
fillrectangle(x2,y2,x2+8,Y2+8);
X2:=X+8;
Y2:=472;
N:=Y2+8+Y2;
repeat;
n:=n-16;
until(N=8) or (x2=x1);
If not (N=8) or (x2=x1)
then begin
clearwindow;
Draw();
end;
If (N=8) and (x2=x1) then
begin
Clearwindow;
Draw();
inc(k);
writeln('Счёт:', k, 'Очко(а)(ов)');
end;
end;

procedure Gravity(); begin
if vspeed=0 then begin
if s[(x div 8),(y div 8)+vspeed]=0 then y+=vspeed;
if vspeed <>0 then
vspeed+=2;
end;
end;
Procedure Draw(); begin
Redraw;
Lockdrawing;
setbrushcolor(clwhite);
fillrectangle(0,0,640,480);

setbrushcolor(clred);
circle(x1,y1,24);
setbrushcolor(claqua);
fillrectangle(x,y,x+8,y+8);
end;

Begin
game_end:=False;
x:=Random(640);
y:=480;
x1:=Random(640);
y1:=0;
s:=new integer[200,200];
while game_end=false do begin
Draw();
Gravity();
Onkeypress:=Keypress;
Onkeydown:=Keydown;
sleep(30);
end;
end.

Как решить? Если поменять Bullet и Keypress пишет Нет перегруженной подпрограммы с таким количеством параметров Draw.
- Предмет:
  Информатика
- Автор:
  vanceqoym
- 4 года назад
- Ответов:
  
  6
- Смотреть

How much to ban the user?

1 hour 1 day 100 years