Число n вводят с клавиатуры.Напечатать n раз число 5.Числа n и

Число n вводят с клавиатуры.Напечатать n раз число 5.
Числа n и kвводят с клавиатуры.Напечатать n раз число k.
Числа n и k вводят с клавиатуры.Напечатать n раз число k, а затем k раз число n.
Вывести числа от 1 до 20 в строку через пробел.
Вывести числа от 11 до 40 в строчку через пробел.
Вывести квадраты чисел от 1 до 10 в столбик.
Помогите мне решить задачи на языке Паскаль безотлагательно необходимо

Задать свой вопрос
1 ответ
Вывести числа от 1 до 20 и от 20 до 40 так же, просто цифры поменяй.
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.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт