Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:
?
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.
Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
var a:integer;
procedure sum(var z:integer);
begin
writeln('Vvedite chislo: ');
readln(z);
end;
begin
a:=10;
sum(a);
writeln(a);
readln();
end.
Напишите процедуру, которая выводит на экран сумму трёх целых чисел.
var a,b,c,i,d:integer;
procedure sum(x,y,z:integer; var i:integer);
begin
i:= x + y + z;
end;
begin
writeln('Vvedite 3 chisla: ');
readln(a,b,c);
sum(a,b,c,d);
writeln('Summa abc = ',d);
readln();
end.
Напишите функцию, которая возвращает сумму трёх целых чисел.
var a, b, c: integer;
function sum(x, y, z: integer):integer;
begin
result:= x + y + z;
end;
begin
writeln('Vvedite 3 chisla: ');
readln(a,b,c);
writeln('Summa abc = ',sum(a,b,c));
readln();
end.
