|
|
For1
|
[ Скачать с сервера (0.2 Kb)
]
| 29.04.2012, 21:13 |
For1. Даны целые числа K и N (N > 0). Вывести n раз число k.
Program For1;
uses crt;
var
k,n:integer;
i:integer;
begin
repeat
write('Введите N(n>0)');
readln(n);
until n>0;
writeln('Введите K');
readln(K);
for i:=1 to n do
begin
writeln(k);
end;
end.
|
|
Категория: For | Добавил: FiX_IT
|
| Просмотров: 928 | Загрузок: 59
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
| QR-Clan TEAR |
 |
| Дата |
| Пятница, 11.07.2025, 05:53 |
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
