Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yulokkons
16.05.2021 08:15 •
Информатика
"for" pascalabc.net даны целые числа k и n (n> 0). вывести n раз число k.
Показать ответ
Ответ:
ohwer
20.08.2020 12:44
Program n1;
var K,i: integer;
N: byte;
begin
write('введите число: ');
readln(K);
write('введите кол-во раз: ');
readln(N);
if(N>0) then for i:=1 to N do writeln(K);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
1234567Саша
04.07.2021 22:54
Если цифра сотен равна 8 или 9, то число домножить на количество десятков, если число сотен от 3 до 5, то у числа оставить цифры сотен и десятков, в противном случае из...
Пава1305
21.12.2020 10:51
Уберите лишнее. базовое по включает в себя: a) сетевые операционные системы в) программы архивирования с) оболочки d) операционные системы...
Эвелина123412
02.02.2021 09:21
Определите количество информации для двоичного кодирования 8 цветов?...
coolgirl2007
08.01.2020 13:27
Решить, ! паскаль в 2-хфайлах хранятся натуральные числа подсчитать количество повторяющихся чисел...
Гектор31
21.06.2020 05:57
передачи информации. организация и структура локальных и компьютерных сетей....
арсений201
27.07.2021 12:35
1.напишите программу вычисления расстояния между двумя точками плоскости. 2. напишите программу вычисления площади боковой поверхности куба. 3. напишите программу вычисления...
iadsodasdfs
09.02.2020 13:40
Составьте блок-схемы и программы для решения следующих . для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. · если разность...
Alexandro1888
27.04.2020 21:06
Какие алгоритмы называются линейными...
shcoll15
27.04.2020 21:06
Как найти в пиксели? - рисунок в котором использовали 64 различных цвета(палитра), занимает в памяти 600 байт, определите количество пикселей в этом !...
nurlan27
04.06.2023 14:52
мне нужно составить в pascal abc имя софия .но,используя drawman. p.s. первая буква составлена....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var K,i: integer;
N: byte;
begin
write('введите число: ');
readln(K);
write('введите кол-во раз: ');
readln(N);
if(N>0) then for i:=1 to N do writeln(K);
end.