Меню сайта

Задача №1

Даны целые числа К и —N.(N&gt-0). Вывести —N -раз числоK.


Program for_1-

Var n,k,i:integer-

Begin

Writeln(‘введите число K’)-

Readln(k)-

Writeln(‘введите число N’)-

Readln(n)-

For i:=1 to n do

writeln(k)-

Readln-

End.

Категория: Циклы | Дата: 20.11.12

Меню раздела
Блок