Var x, a, b, c, d: integer;
begin
readln(x, a, b, c, d);
if ((x > a) and (x < b)) then
writeln('[', a, '; ', b, ']');
if ((x > c) and (x < d)) then
writeln('[', c, '; ', d, ']');
<span>end.
Вот так, интервалы - они и в Африке интервалы)</span>
Нужно скачать и установить SeaMonkey И все получится.
Console.WriteLine("Введите расстояние до пункта ");
double rast = Convert.ToDouble(Console.ReadLine());
Console.WriteLine("Введите расход в литрах ");
<span>double rashod = Convert.ToDouble(Console.ReadLine());
</span>Console.WriteLine("Введите стоимость бензина ");
<span>double benzin = Convert.ToDouble(Console.ReadLine());
</span>
cena = benzin * rashod * rast;
Console.WriteLine(cena);
либо я чето не понимаю, либо она так должна быть
расход горючего на все 61 км? задача некорректно составлена
но допустим, что она такая какая есть
5. 22122
6. 12112
7. 12122
8. 12111
В таких заданиях легче начинать с конца.
var m,n: integer;
begin
write('Введите два числа: ');
readln(m,n);
if abs(m) > abs(n) then writeln(m-100);
<span>end.</span>