Меню "Пуск" или Главное меню<span> системы Windows</span>
Var x:array [1..10] of integer; i:integer;
begin
for i:=1 to 10 do begin
x[i]:=i*2;
write(x[i],' ');
end;
end.
Задание 4 Отметьте точки: 1(2,6), 2(2,8), 3(1,10), 4(2,11), 5(4,8), 6(13,8), 7(15,6), 8(10,6), 9(8,2), 10(5,2), 11(7,6), 12(7,8)
нэли
Получился самолет
Ставишь точки на координатной плоскости и соединяешь последовательно, как в задании
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (a, b, c) := ReadReal3('Введите a, b, c:');
Print(0.5 * Sqrt(2 * b * b * +2 * c * c - a * a))
end.
<h2>Пример</h2><h3>Введите a, b, c: 4.5 5.2 3.12</h3><h3>16.0672236556289</h3>