Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
annaeychinas
12.01.2023 11:52 •
Информатика
Составьте программу которая выводит на экран числа от 1 до n
Показать ответ
Ответ:
ArtLeg
07.10.2020 18:57
Program Rick_and_Morty;
var n,i:integer;
Begin
write('введите n: ');
readln (n);
write('ответ: ');
for i:=1 to n do
begin
write(i,' ');
end;
writeln('');
writeln('конец');
end.
0,0
(0 оценок)
Ответ:
МировойПельмень
07.10.2020 18:57
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(1,ReadInteger('n =')));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sssaaa4
05.01.2020 11:11
Информатика: задана строка, состоящая из латинских букв, длиной от 7 до 256 символов. на каждом шаге из строки можно удалить одгу или несколько стоящих рядом букв....
NyushaLove
28.06.2022 11:03
Склавиатуры вводится десять целых чисел(до100) ,найти произведение тех из них которые делятся на три или которые оканчиваются тройкой...
A778YE21rus
17.05.2021 02:07
Дается последовательность из n чисел. найдите максимальное произведение среди всех пар этих чисел. первая строка входного файла содержит целое число n(1 =n =1000)....
zajnabh35
17.05.2021 02:07
Написать в паскале. ввести целочисленную квадратную матрицу nxn. найти максимум среди сумм элементов диагоналей, параллельных побочной диагонали....
seniorkovalyov
15.09.2021 22:13
Заданы две строки а и в. можно ли переставить буквы в одном из слов так , чтобы слова стали одинаковыми? формат входных данных первая строка входного файла содержит...
Лама123
17.07.2020 10:49
Имеется n окружностей с центром в начале координат и радиусами r[1], r[n]. определить номера окружностей между которыми находится точка с координатами (х, у). определить...
ShiQualence
04.04.2021 14:24
Переведите в другие единицы. 160кбайт=…байт=…бит 49152бит=…байт=…кбайт...
POMIPO
04.04.2021 14:24
Решить в паскале! вычислить сумму 5+10+15+20+ и.т.д складывать до тех пор пока слагаемое не станет больше тысячи. заранее )...
1ЛиКа6
24.01.2023 06:59
Составить программу. присвоить переменным а, в, с любые положительные значения. вычислить значение переменной и вывести d: =(3,5•à+â)•2/4•c+5•b;...
Semykina2003
24.01.2023 06:59
Написать программу в turbo pascal найти 2 максимума из любой последовательности чисел...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,i:integer;
Begin
write('введите n: ');
readln (n);
write('ответ: ');
for i:=1 to n do
begin
write(i,' ');
end;
writeln('');
writeln('конец');
end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(1,ReadInteger('n =')));
end.