Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ilyassovaalina235393
07.02.2020 05:31 •
Информатика
Даны 2 целых числа aив написать программу выводящую на экран значения квадрата целых чисел от а до в включительно
Показать ответ
Ответ:
Асылхан12357399393
08.10.2020 02:15
Var A, B, S1, S2: integer;
Begin
A := StrToInt(Edit1. Text) ;
B := StrToInt(Edit2. Text) ;
S1 := sqr(A) ;
S2 := sqr(B) ;
Label1.Caption := IntToStr(S1) ;
Label2.Caption := IntToStr(S2) ;
End;
0,0
(0 оценок)
Популярные вопросы: Информатика
DasyaSay
24.01.2023 10:41
Вкорзине лежат грибы 30 рыжиков и несколько лисичек. сколько в корзине может быть грибов если истинно следующие высказывание ( лисичек не больше чем рыжиков ) и( лисичек больше 15)...
TBONBATYA
02.11.2022 19:38
Решить на вставку в массив. дан целочисленный линейный массив. вставить в него заданное число после второго положительного элемента....
Vova2288s
02.11.2022 19:38
Для хранения растрового изображения размером 640 x 480 пикселей без сжатия отвели 600 кбайт памяти. каково максимально возможное число цветов в палитре изображения?...
Anna124212
23.11.2020 07:39
Ii. дано условие и ее решение, содержащее пропуски. заполнить пропуски. дан линейный массив. изменить массив, вычеркнув из него все четные трехзначные элементы, которые кратны своему...
Лтшпамльз
23.11.2020 07:39
Написать на паскале программу. ученик бежит по кругу. на старте стоит тренер и пред каждым новым кругом спрашивает ученика: пробежишь ещё кружочек? . подсчитать колличество кругов....
anna19762
25.04.2021 23:41
Если сумма двух последних цифр заданного трехзначного числа n меньше заданного числа k, а первая цифра больше 5, то логической переменной t присвоить значение true, иначе – false....
sdfxcg
01.05.2020 07:59
Вкомпьютер по очереди поступают результаты спортсменов-участников соревнований по лыжным гонкам, уже пришедших к финишу (время, затраченное на прохождение дистанции гонки). выводите...
Cet31072007
01.05.2020 07:59
Дана вещественная матрица размера m*n. сформировать одномерный массив, элементами которого являются произведения целых элементов в четных строках матрицы.паскаль...
alexlion99alex
02.12.2021 18:23
Составти текст про новый год в настоящем продолженным времени(10предложений минимум ) на...
lenabejenar
02.12.2021 18:23
Вкорзине было 40 яблок. петя взял 4 пары яблок,а оля 4 тройки яблок. сколько яблок осталось в корзине?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
A := StrToInt(Edit1. Text) ;
B := StrToInt(Edit2. Text) ;
S1 := sqr(A) ;
S2 := sqr(B) ;
Label1.Caption := IntToStr(S1) ;
Label2.Caption := IntToStr(S2) ;
End;