<span>В России: все равно никто ни хрена не делает. </span>
Max=0
Min=30000
x=int(input())
while x:
if x>Max:
Max=x
if x<Min:
Min=x
print(Max,Min)
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var d:=ReadReal('D=');
if d<=-30 then Writeln(d/10)
else
if d>=20 then Writeln(sqr(d-1))
else Writeln(1-2*d)
end.
Program n1;
const n=20;
var a: array[1..n] of integer;
i,m: integer;
begin
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите позицию: ');
readln(m);
if (m>=1) and (m<=n) then
begin
a[m]:=10;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end;
end.
Решим задание наоборот, при этом меняем и команды:
1. 28 - > 2;
2. 58 -> 4.
Команда 1: вычти 3;
Команда 2: квадратный корень из числа.
а)
28 - 3 = 25 (1).
5 (2).
5 - 3 = 2 (1).
Результат записываем снизу-вверх: 121.
б)
58 - 3 = 55 (1).
55 - 3 = 52 (1).
52 - 3 = 49 (1).
= 7 (2).
7 - 3 = 4 (1).
Результат: 12111.