Число n вводят с клавиатуры.напечатать n раз число 5. числа n и kвводят с клавиатуры.напечатать n раз число k. числа n и k вводят с клавиатуры.напечатать n раз число k, а затем k раз число n. вывести числа от 1 до 20 в строку через пробел. вывести числа от 11 до 40 в строку через пробел. вывести квадраты чисел от 1 до 10 в столбик. мне решить на языке паскаль нужно
var
i:integer;
begin
writeln('1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20');
readln
end.
Вывести квадраты чисел от 1 до 10
var
i: integer;
begin
for i:=1 to 10 do
writeln(i:4,' ',sqr(i):4);
readln
end.
Число n вводят с клавиатуры.Напечатать n раз число 5 (и оставшиеся 2 задачи можно этой же, просто поменяй кое-какие детали, подумай какие)
var
i,n:integer;
begin
writeln('Введите кол-во повторов числа: ');
readln(n);
for i:=1 to n do
writeln('5');
readln
end.