Поставь мне благодарность и пять звёзд)))) и тогда я напишу ответ
program raf105;
var
i,n: integer;
begin
write('Введите число: ');
readln(n);
write('Чётные: ');
for i:=1 to n do
if i mod 2 = 0
then write(i,' ');
writeln;
write('Нечётные: ');
for i:=1 to n do
if i mod 2 <> 0
then write(i,' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>
123456-654321 я думаю так
Думаю, что это пишущий DVD-RW-дисковод.
32 - скорость чтения DVD-дисков
18 - скорость записи DVD-дисков
45 - скорость чтения CD-дисков.
Мне кажется, так.
Это вариант замены значений со сдвигом по кольцу. Делается через вспомогательную переменную.
var
a, b, c, d, t: integer;
begin
Write('Введите четыре целых числа через пробел: ');
Readln(a, b, c, d);
t := d;
d := c;
c := b;
b := a;
a := t;
Writeln(a, ' ', b, ' ', c, ' ', d)
end.
Тестовое решение:
Введите четыре целых числа через пробел: 1 2 3 4
4 1 2 3