Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ndan1k
24.08.2021 05:18 •
Информатика
Составить таблицу квадратов,первых двадцати положительных чисел 1
Ответ:
тина136
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 оценок)
Популярные вопросы: Информатика
nikgtacs59
05.09.2020 21:53
Дана матрица размера MxN [0,50] и целое число K (1≤K≤N). Найти сумму и произведение элементов K-го столбца данной матрицы....
renata82
15.08.2020 06:26
Модельдеуді тестілеу деген не...
belovavaleriya
18.06.2021 16:24
напишите программу которая в последовательности натуральных чисел определяет сумму чисел кратных 6 количество чисел 70 генерирутся случайным образом программа должна...
yardeebro
24.05.2020 19:37
ДА/ НЕТКА 1. Гироскоп - это устройство,отвечающее за изменения углового наклонатела, в которое он встроен.2. Гироскопическийдатчикпредназначен для измеренияскорости движения...
dilyakon
18.04.2020 10:23
Аңызақ, тымырсақ ,қапас сөздерінің мағынасын түсініп ,олардың қандай сөздермен тіркесетінін айтайық ...
25424446645
26.04.2022 17:36
Современная мода Прочитай текст.Укажи тему прочитанного текста.Посмотреть текстРабота современных дизайнеров.Какой может быть современная мода.Как появляются направления...
алина3843
08.08.2022 06:04
В 1984 году в Каспийском море насчитывали 380 100 тюленей. Сейчас их лишь 1/3 часть. Сколько всего тюленей сейчас в море...
abbalbisk1
08.08.2022 06:04
Что стало с открытиями после смерти Юнлэ?...
Kate0526
08.08.2022 06:04
Как быть участником чтоб отвечать на вопросы скажите...
L00KING
08.08.2022 06:04
Көктем көрінісі Көктем – табиғаттың той - думаны . Көктемнің беташары - наурыз айы . Наурыз айында бүкіл Шығыс халықтарының мерекесі - Жаңа жыл тойланады . Бұл күн мен...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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;