tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вычислить квадраты n чисел в
Вычислить квадраты n чисел в паскале
dmolodozhnikovp02gx5
2 21.09.2019 18:30
2
Ответы
Tittans101
08.10.2020 07:43
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger(ReadInteger('n=')).Select(t->t*t).Println
end.
Пример
n= 6
-30 45 129 18 0 7
900 2025 16641 324 0 49
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Kek346582
14.12.2020 01:04
Постройте графики функций: y(x) =(x-0,2)^3 +1 и f(x) = e^(0,8+x) -3 на отрезке [0; 1] с шагом 0,1....
Vlados22fhgff
14.12.2020 01:00
Протабулируйте g(x) = √(4 − x^2) на отрезке [-3; 3] с шагом 0,5....
fairytale8
15.12.2020 16:31
1. Напишите программу к задаче: Дан массив С (40), заполненный трехзначными случайными числами. Найти произведение четных элементов и сумму нечетных элементов массива....
Kammmmmmmmmmmm
15.12.2020 16:30
Введите 3 числа с клавиатуры. Первое число увеличите на 3. Второе уменьшите в 2 раза. Третье число возведите в куб. Найдите сумму новых чисел...
dadert1
24.02.2021 00:05
Определите значение переменной s после выполнения фрагмента алгоритма s:=0 нц для I=1 до 6 s:=s+3*i...
Ole4ka2135
24.02.2021 00:03
Датчиком случ чисел на отрезке [-20;15) задаются 10 чисел. Найти среднее арифметическое чисел, оканчивающихся на 0 и найти произведение чисел, у которых номера четные....
viktoriakovalch
23.02.2021 23:58
вас Чому при застосуванні фільтрування та сортування дані маютьбути введені з суворим дотримання певних правил?...
Vikateplova72
23.02.2021 23:53
В алгоритме, записанном ниже, используются целочисленные переменные a, b, c, а также следующие операции: Обозначения Тип операции:= присваивание+ сложение- вычитание*...
vvozmisheva2
13.07.2019 18:50
Логическую функцию ¬(¬a & ¬b) & ¬(¬a & ¬b)...
Андрей1щщщщз
13.07.2019 18:50
Вкартинке размером 4мб 65536 цветов . сколько пикселей в этой картинке?...
Популярные вопросы
Решите системы уравнивания коэффициентов 2x+y=0 2x-y=0 2x+3y+4=0...
3
В римском государстве в 1в до н.э :а) власть консулов передовалась...
3
В правильной шестиугольной пирамиде с вершиной S стороны основания...
1
1. Сколько битов информации несет сообщение о том, что из колоды...
3
шарика радиуса р 2 р 3 р 4 р заряжен потенциалом 4 f 3 f 2 f и...
3
С КОНТРОЛЬНОЙ ПО ИСТОРИИ 7 КЛАСС ПЛАЧУ 70 Б Во В XVII в. в русской...
2
решить контрольную Control Writing7th formVariant ITask 1. Complete...
1
Якої енергії набуває під час стискання на 0,3 м пружина, жорсткість...
1
Y=|cos3x+1/2| построить график функции....
1
Який поперечний переріз матиме мідний провідник, що має довжину...
1
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger(ReadInteger('n=')).Select(t->t*t).Println
end.
Пример
n= 6
-30 45 129 18 0 7
900 2025 16641 324 0 49