Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.
Задайте в коде программы массив из семи чисел:
1 12 45 6 7 18 99
Затем обойдите это массив, выводя его значения на экран.
type
myArr = array[1..7] of integer;
var
a: myArr;
i : integer;
begin
a[1] := 1;
a[2] := 12;
a[3] := 45;
a[4] := 6;
a[5] := 7;
a[6] := 18;
a[7] := 99;
for i := low(a) to high(a) do
write(a[i],' ');
readln();
end.
Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой". ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму, т.е. для каждой строки вы должны каждый раз (причем один раз для одной строки) вызывать эту подпрограмму.
Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).
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 должна отвечать процедура
-получение значения должно проходить в теле основной программы