Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Matannoob
07.11.2020 11:44 •
Информатика
Дано натуральное число n,составить программу,котоая выводит на экран все натуральные числа,квадрат которых не больше чем n
Показать ответ
Ответ:
викуша131
26.08.2020 07:10
Var n,i:integer;
begin
write('n = ');
readln(n);
i:=1;
while i*i<=n do
begin
write(i,' ');
i:=i+1;
end;
writeln;
end.
Пример:
n = 30
1 2 3 4 5
0,0
(0 оценок)
Популярные вопросы: Информатика
итимиотмсморввш
19.11.2021 07:53
Запишите полное имя файла, размещенного на диске, файловая структура которого представлена ниже:а) файла презентацииб) файла «Принтер.jpeg»....
Winny1111
05.03.2023 20:22
Найдите минимальное положительное xx такое, что если результат вычисления выражения 7417(8) + x(10) перевести в двоичную систему счисления, то запись будет содержать только цифры «1»....
dhdhhd55
11.09.2021 17:15
Скорость передачи данных через спутниковый канал равна х бит/с.через данное соединение файл размером y мбайт.определите время передачи файла в секундах. через разложение на степени...
linasokol03
23.12.2021 14:02
Bставьте глагол to be в present indefinite. 1. where … you? – i … in the kitchen. 2. where … lisa and john? – they … at college. 3… you busy? – no, i… not. mike … busy.4.she … from...
SmatBok
23.12.2021 14:02
Решить уравнение (х-1)(х-3)(х+2)(х+6)=72х^2...
ShudrenkoArtem
23.12.2021 14:02
Мотоциклист ехал p часов со скоростью y км/ч.на какую часть увеличится его путь,если скорость уменьшить на 1\8, а время увиличить на 2\7 их первоначальных значений...
mikstura71
23.12.2021 14:02
Как выразить формулу r из формулы всемирного тяготения?...
so9a
23.12.2021 14:02
Переведите на : униформа людей,которые работают в центре олимпийских игр....
JulianaBrolol
24.01.2023 15:28
Переведите на : программа для олимпиады....
аня2939
24.01.2023 15:28
Всі клітини хворої жінки мають 45 хромосом одна статева хромосома відсутня як наз ця мутація? запишіть хромосомний набор цієї жінки як наз ця хвороба? чи може передати нащадкам цю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('n = ');
readln(n);
i:=1;
while i*i<=n do
begin
write(i,' ');
i:=i+1;
end;
writeln;
end.
Пример:
n = 30
1 2 3 4 5