Ответ:
program obmen;
var x,y,z:integer;
begin
writeln('введите x');
readln(x);
writeln(' введите y');
readln(y);
if x>y
then z:=x;
if z>y
then x:=y;
if z>x
then y:=z;
writeln('x= ', x);
writeln('y = ', y);
end.
Объяснение:
Смотри, ты вводишь x и y, и если x>y, то через if-ы присваиваешь значение x значению z; значению x значение y и значению y значение z
Var
}
r,d:integer;rar
}
begin
writeln('введи значение радиуса ',r);
readln(r);
d:=r*2;
writeln('диаметр ',d);
end.
2*2*300 = 4*300 = 1200 точек.
1200 точек * 24 бита = 28800 бит = 3600 байт
Время остановки:
- 1³1²0¹0⁰₍₂₎= 1x2³+1x2²+0+0 = 8+4 = 12₍₁₀₎
- C₍₁₆₎ в десятичной системе равна 12₍₁₀₎
- 5¹0⁰₍₈₎= 5x8¹+0 = 40₍₁₀₎
- 4¹0⁰₍₅₎= 4x5¹+0 = 20₍₁₀₎
- 2¹9⁰₍₁₁₎= 2x11¹+9x11⁰ = 2x11+9x1 = 22+9 = 31₍₁₀₎
Теперь получившиеся числа нужно лишь добавить к времени прибытия на соответствующие станции, чтоб получить время отправления:
- 07:18 + 12 мин = 7:30
- 09:48 + 12 мин = 10:00
- 13:15 + 40 мин = 13:55
- 0:25 + 20 мин = 0:45
- 10:15 + 31 мин = 10:46
Путь (решение во вложении):
- 381 км.
- 537 км.
- 697 км.
- 1283 км.
- 1625 км.
- 1699 км.
Var
i,sum,k:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-10,10);
write(mas[i], ' ');
end;
writeln(' ');
for i:=1 to 10 do begin
if mas[i] mod 3 = 0 then begin
k:=k+1;
sum:=sum+mas[i];
end
end;
writeln('Числа кратные 3 встречаются ',k,' раз. И их сумма = ',sum);
end.