Набери тест. Выделить половину страницы
и перейти в "разметку страницы" - колонки - 2 колонки
Задача 1)
//PascalABC.NET
begin
writeln('Введите через пробел три числа');
var a := ReadArrInteger(3);
write('Разность большего и меньшего равна ');
writeln( a.Max - a.Min )
end.
Задача 2)
//PascalABC.NET
var
y : array of real;
begin
// Запрашиваем область определений
write('Введите a: ');
var a := ReadlnReal();
write('Введите b: ');
var b := ReadlnReal();
write('Введите k: ');
var k := ReadlnReal();
// Резервируем массив для значений функции
y := new real[Round((b - a) / k) + 1];
// Заполняем массив данными
for var i := 0 to Round((b - a) / k) do
begin
y[i] := Exp(a) - Sin(a) * Cos(a);
// Следующее значение
a += k
end;
// Выводим массив на экран
foreach var i in y do
writeln(i:8:3)
end.
Результаты в приложениях
Надо просто значения А1 и В3 надо подставить в выражение, и получается 3*35,7*(-44,2-8)= 107,1*(-52,2)=-5590,62
Объяснение:
– сверху – это ваше "-"
& не ставится у меня, у себя его ставьте!
<span>Решение данной задачи прикреплено ниже.
zd15 - решение первой задачи.
zd16 - решение второй задачи.</span>