Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
var a, b, c: integer;
procedure sum(q, w, e: integer);
begin
writeln(q + w + e);
end;
begin
writeln('write 3 nums');
readln(a,b,c);
sum(a,b,c);
readln();
end.
Напишите функцию, которая возвращает сумму трёх целых чисел.
var a, b, c: integer;
function sumOf3(x, y, z: integer):integer;
begin
result:= x + y + z;
end;
begin
writeln('write 3 nums');
readln(a,b,c);
writeln(sumOf3(a,b,c));
readln();
end.
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- для вывода очередной строки используйте процедуру.
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):
- для вывода очередной строки используйте процедуру.
Пользователь по запросу программы вводит в цикле целые положительные числа, до тех пор пока не введет число большее 30. В ответ на каждое введенное пользователем число выводите все числа от 1 до этого введенного числа m.
При этом:
-за выводит чисел от 1 до $m должна отвечать процедура
-получение значения должно проходить в теле основной программы