Const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
n:=10;
write('Введите элементы: ');
for i:=1 to N do
read(a[i]);
write('Вывод элементов массива: ');
for i:=1 to N do
write(a[i],' ');
for i:=1 to N do
if (a[i]>=5) then
write(a[i],' ');
end.
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x := ReadReal('x=');
var Fx := 1 / Tan(x) * Ln(x) ** 3 + Sin(x + 8);
Fx.Println
end.
program abc;
var
a, b, x, h: real;
begin
read(a, b);
h := 0.5;
x := a;
while x <= b + h / 2 do
begin
writeln(x:20:9, x * x - sqr(x * x) / 2:20:9);
x := x + h;
end;
end.
1 вариант
1) Ветер, море, кораблик
2) Понятия: Система счисления, графический файл, текстовый документ, двоичные коды(?)
3) 1 - процессор, 2 - жёсткий диск
4) Понятие, суждение, умозаключение
2 вариант
1) Пушки, пристань, корабль
2) Б, Д, Ж
3) 1 - экран, 2 - склад
4) Анализ, синтез, обобщение