Предмет: Математика, автор: vdbitrodionov

Какие из чисел деляться на 2?1209;4568;1230;90576;3452;9621!!
Зарание спасибо вам большое!! ​

Ответы

Автор ответа: minikotik1608228
3

Ответ:

все числа делятся на 2, но чтоб получились только целые числа, то 4568, 1230, 90576, 3452.

vdbitrodionov: спасибо
vdbitrodionov: тоже играешь в амонг ас?)
minikotik1608228: угу
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Русский язык, автор: margorita19981
почему картина так называется По плану утро яблонская 6 класс
1 год назад
Предмет: Русский язык, автор: ainazygdht
слова 2 склонения среднего рода с окончаниями е о 40 слов
1 год назад
Предмет: Українська література, автор: Fant555
Сочинение на тему "Патреотiзм захiсникiв рiдноi землi" по произвдению Захар Беркут
1 год назад
Предмет: Информатика, автор: Karikrut1
НЕИЗВЕСНОЕ ИМЯ '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.
8 лет назад
Предмет: Алгебра, автор: svendotan2
Выполните умножение ( х - 5у) ( 3у + 2х)
8 лет назад