1.
program z1;
var x:real;
begin
writeln('Input x: ');
readln(x);
if (x<9) then
begin
x:=(x*x)/(x-9);
writeln('New x: ',x);
end
else
begin
x:=Sin(x);
writeln('New x: ',x);
end;
end.
Поясню выбор типа х: вещественный, т.к. функция синуса вернет не целое число.
2.
program z2;
var a,b,c:real;
begin
writeln('Input a, b, c:');
readln(a,b,c);
writeln('Числа, удовлетворяющие условию:');
if((a>1) and (a<3)) then
writeln(a);
if((b>1) and (b<3)) then
writeln(b);
if((c>1) and (c<3)) then
writeln(c);
end.
1) Подключить приставку к компьютеру при помощи мини USB-кабель,
2) Подтвердить запрос на экране приставки на передачу данных через USB.
3) Осуществить поиск игр в интернете посредством любого интернет-поисковика (для поиска необходимо заранее определиться с форматом игр, и задать в поисковике какой именно формат игр скачивать, например «скачать игры mega drive»).
4) Скачать архив с играми на компьютер.
5) Разархивировать его.
6) Скопировать c заменой (при необходимости) скачанные и разархивированные игры в папку "Game" (или в папку с соответствующим расширением игр).
7) Отключить приставку от компьютера.
8) Зайти в папку "Game" (или в папку с соответствующим расширением игр) и запустить скачанную игру.
ПОКРАЙНЕЙ МЕРЕ ПРОЧИТАЛ В ИНТЕРНЕТЕ))
Program pr;
uses crt;
Var x, y, buf:integer;
Begin
Write('Введите x ');
readln(x);
Write('Введите y ');
readln(y);
if x>y then
Begin
buf:=x;
x:=y;
y:=buf;
end;
Writeln('x = ',x);
Write('y = ',y);
readln;
<span>end.</span>
A=13, R=0
A=12, R=3
A=6. R=6
A=3, R=12
A=2, R=15
A=1, R=30
A=0, R=33
<span>
A=0, R=33</span>