с информатикой Вычислите значение переменной а.
1)а:=30
b:=16+7*2
если а > b то
а:=b / 2*a
иначе
а:=b*2
все
2)а:=27
b:=17+a / 3
если а > b то
а:=b / 2
все
а:=а+7
3)а:=13
b:= -a+7
если а > 0 то
b:=b / 2
иначе
b:=b*2
все
а:= -b
185
322
Ответы на вопрос:
ответ:
uses crt;
var
x,y,vx,vy: integer;
ch: char;
begin
clrscr;
x : = 1;
y : = 25 div 2;
while (x> =1) and (x< =80) and (y> =1) and (y< =25) do begin
gotoxy(x,y);
write('0');
delay(60);
if keypressed then begin
ch : = readkey;
case ch of
'd': begin vx: =1; vy: =0 end;
'a': begin vx: =-1; vy: =0 end;
'w': begin vx: =0; vy: =-1 end;
's': begin vx: =0; vy: =1 end;
end;
end;
gotoxy(x,y);
write(' ');
inc(x,vx);
inc(y,vy);
end;
end.
Популярно: Информатика
-
Lider4k28.03.2023 12:58
-
shefer8421.09.2022 07:26
-
aurelia2002p0cdun12.03.2022 09:53
-
AnselmaRain31.12.2020 05:13
-
Daxa66611.03.2023 17:34
-
Nik2321811.09.2021 08:43
-
оопда23.11.2021 18:37
-
Елизавета582005.03.2020 06:51
-
gera53517.05.2020 20:24
-
yeri208.12.2020 00:27