48 ! 1)произвести вывод на печать отрицательных чисел от -1 до -21. причем вывод необходимо осуществить только каждого третьего числа! 2) напишите программу используя цикл с предусловием while для вывода каждого четного положительного числа от 0 до 20 в одну строку через пробел.
Внимание! Если программа не работает, обновите версию!
1) Понятно, что первое такое число - это -3. А дальше - через 3...
begin
Range(-3,-21,-3).Println
end.
Результат
-3 -6 -9 -12 -15 -18 -21
2) Первое четное положительное - это 2. И через два дальше...
begin
var n:=2;
while n<=20 do begin
Write(n,' ');
n+=2
end;
Writeln
end.
Результат
2 4 6 8 10 12 14 16 18 20