var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
Неправильный ответ это второй под буквой А
Ответ:
Ответ 8
Объяснение:
Приведем выражение к следующему виду:
(x > 7) & (x <20).
Наименьшим значением в данном промежутке будет 8.
Var
z,x1,x2,y1,y2:real;
begin
writeln('Введите x1 и y1');
readln(x1,y1);
writeln('Введите x2 и y2');
readln(x2,y2);
z:=sqrt(sqr(sqr(X1)-sqr(x2)))+(sqr(Sqr(y1)-sqr(y2)));
writeln(z);
<span>end.</span>
// проверялось в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
x, y: real;
begin
x := 1;
y := x * x * x - 3 * exp(x) + 8;
Println('При x =', x);
Println('y = x³ - 3eˣ + 8 =', y);
end.
Примечание: в строке, выводящей на экран значение игрек, использованы символы Юникода.
Если они не поддерживаются в вашей версии Паскаля, можно оставить в строке только Println('y =', y);