В новом файле выделяешь - ctrl+c, на фигуре, которой надо жмёшь ctrl+v
???
профит
var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
8 = 2^3, поэтому перевести число из восьмеричной системы счисления в двоичную можно, получив двоичные коды длиной 3 каждой цифры, а затем эти коды записав вместе.
PascalABC.NET 3.4
// без массива
begin var (a, b) := ReadInteger2('Задай два первых числа ');
var n := ReadInteger('Сколько всего чисел надо?');
Print(a, b);
for var i := 3 to n do
begin
(a, b) := (b, a + b);
Print(b)
end
end.
// с массивом
begin
var n := ReadInteger('Сколько всего чисел надо?');
var a := new integer[n];
(a[0], a[1]) := ReadInteger2('Задай два первых числа ');
for var i := 2 to n - 1 do
a[i] := a[i - 1] + a[i - 2];
a.Println
end.
3-д
4-е
5-г
6-а
7-и
8-в
9-з
А дальше не видо.
