Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ЯнаШемен
04.05.2020 16:54 •
Информатика
Составить таблицу квадратов,первых двадцати положительных чисел 1
Ответ:
aaablaeva
24.05.2020 01:22
For a := 1 to 20 do
begin
writeln(a,"^2 = ", a*a);
end
или
a:= 1;
repeat
writeln(a,"^2 = ", a*a);
a := a + 1;
until a > 20;
0,0
(0 оценок)
Популярные вопросы: Информатика
Shafner777
06.01.2020 05:58
Сумативное оцениванивание по информатике за раздел технические характеристики характеристике компьютера и сетей...
csgodanilgo
05.05.2022 06:29
Сколько кбайт информации содержит файл объёмом 2^5 бит?...
en228
27.12.2020 07:39
Рассмотрите программный код. Используя номера строк укажите: Тело цикла Вывод результата...
lolko2
19.04.2023 02:23
Яке призначення табличного процессора Microsoft Office Excel?...
CrySony1
20.04.2022 01:29
решить задания 5.2.1 и 5.2.2. Нужно полное решение, пояснение большое. ...
вёдра
04.09.2022 03:04
Дана программа на языке Паскаль. Заполни пропуски. Вывод на экран квадратов чисел от 1 до 19. var : integer; begin for n:=1 to do writeln(sqr( )); readln; end....
katya200513
17.02.2022 16:52
ОЧЕНЬ Нужно вычислить и вывести сумму чётных целых чисел в интервале от 1 до n: 1. цикл «ДО» (repeat) 2. цикл «ПОКА» (while) 3. цикл «ДЛЯ» (for)...
hzeslichestno
11.01.2020 16:54
Один из видов ветвлейного алгоритма...
miwakina
11.01.2020 16:54
Вцветовой модели rgb для кодирования одного пикселя используется 3 байта. фотографию размером 2048x1536 пикселей сохранили в виде несжатого файла с использованием rgb-кодирования....
Фариза04
29.10.2021 09:14
решить пример (-3,7-2,4)-(7/15-2/3)+5,9=выполните действияе...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
For a := 1 to 20 do
begin
writeln(a,"^2 = ", a*a);
end
или
a:= 1;
repeat
writeln(a,"^2 = ", a*a);
a := a + 1;
until a > 20;