С клавиатуры вводится целое число N. Распечатать число 20 в строку N раз через пробел. (использовать цикл с параметром)
5-9 класс
|
var n,i:integer;
a:array [1..1000] of integer;
begin
readln(n);
for i:=1 to n do begin
write(20,' ');
end;
end.
Другие вопросы из категории
странице 48 строк, в каждой строке 64 символа и каждый символ кодируется 16 битами (кодировка Unicode).
Увеличить число в 5 раз, если оно больше 3, во всех остальных случаях без изменения.
Читайте также
2.С клавиатуры вводится действительное число p.Записать отдельно его целую часть C.
Помогите составить программу.
изведение всех цифр этого числа а так же колличество больших шестии
только для указания окончания ввода и в остальных расчётах не участвует. Подсчитать
среднее арифметическое тех отрицательных чисел, которые оканчиваются на цифру «5».
Учесть, что таких чисел может не быть. PascalABC
Количество частей N вводится с клавиатуры. 2.Нарисовать пирамиду из разноцветных прямоугольников.Количество прямоугольников вводится с клавиатуры. 3.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует) Вычислить произведение максимального и минимального числа. 4.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых двух чисел нуля нет. Найти сумму двух наибольших чисел. 5.С клавиатуры вводятся целые числа, пока не встретится ноль (ноль служит только для ограничения ввода и в дальнейших подсчётах не участвует). Известно, что среди первых трех чисел нуля нет. Найти среднее арифметическое трёх наименьших чисел.
Программа Паскаль. Цикл с пред условием