Даны целые числа K и N (N > 0). Вывести N раз число K.
5-9 класс
|
var
k,n, i:integer;
begin
write('k = '); readln(k);
write('n = '); readln(n);
for i := 1 to n do
writeln(k);
end.
Другие вопросы из категории
(Год - дог) пион. адрес, лапа, каприз, карета, ладошка, мошкара
1) Задан диаметр окружности. Найти площадь и длину окружности.
2)Заданы три стороны треугольника. Определить какой это треугольник: равносторонний или равнобедренный.
Читайте также
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
2) Вывести нечётные числа из диапозона [a,b],где a и b могут быть как чётными,так и нечётными,а также отрицательными,но обязательно a<b
3) В одной программе посчитать две суммы из [a,b] (те же условия,что и в задании 2)
S-сумма всех нечётных чисел
Sym-сумма чисел,кратных 3
Cами числа выводить не нужно
4)Найти a в степени n,где a и n целые числа, но могут быть отрицательными
(задачи можно делать либо через For,либо через While)
Вывести полученное число
нулевым, *то* ""заменить *его* на 10. Вывести полученное *число*.
Срочнооо