Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
musya22
28.08.2020 06:03 •
Информатика
Вычислить сумму квадратов чисел от 1 до 30. Квадраты чисел записаны в файл. на паскале
Ответ:
PolinaКэт
11.01.2021 08:52
Program g;
Var
a:integer;
Begin
Readln(a) ;
Writeln(sqr(a)) ;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
petrosiannikita
08.05.2020 19:53
Напишите ЭССЕ на тему Профилактика интернета - зависимость школьников над ...
tatarelinagoodoybbdc
26.08.2020 03:40
Решить размер окна графического редактора, работающего в 8-цветном режиме, 80*25 пикселей. картинка, занимающая все рабочее поле графического редактора, передается за...
ФлайберУмныйЧеловек
31.01.2020 16:27
Введите что будет выведено в результате выполнения фрагмента программы A:=124If mod 2 0Then a:=a+1Else a:=a-1 Writeln(a) ...
fylkis
09.02.2023 20:53
Можно ли через код элемента или каким-то другим узнать правильные ответы на сайте якласс (без подписки я+)?...
vlad777888666
09.02.2023 01:41
2. Какой режим используется (Сортировщик слайдов, Страница заметок, Показ слайдов, Обычный) на данной картинке:...
starlizz
03.07.2021 12:40
Введите, что будет выведено в результате выполнения фрагмента a:=10 b:=20 c:=30 x:=b if 2*a b then x:=a If 2*c x then x:=cWriteln (x) ...
sernikovs
19.04.2020 04:14
Дан целочисленный массив из 30-ти элементов.написать программу,которая позволит найти среднее арифметическое положительных элементов массива ....
hlipkaya
04.07.2022 02:26
1) почему именно египтяне первые начали использовать папирус для письма? 2) что делали древние египтяне когда папирус засыхал и трескался? 3)почему в средние века письменнык...
Tavvi
04.07.2022 02:26
Используя датчик случайных чисел заполнить массив из 20 элементов неповторяющимися числами...
ghbdtnzujdyjfns
26.11.2020 16:18
При обработке массива из нулей и единиц 10100110 был применен следующий алгоритм : если первый элемент массива единица,то переносим её на третью с конца позицию, а если...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Program g;
Var
a:integer;
Begin
Readln(a) ;
Writeln(sqr(a)) ;
End.