Вычислить квадраты N чисел в Паскале

Вычислить квадраты N чисел в Паскале

Задать свой вопрос
Руслан Шабаков
Не поддакивайте
Ангелина Рубакова
А выводить их как надобно? Просто через пробел?
Aljona Tvarina
Это питон, а не паскаль
Ромик Муртазалиев
да
Sanek Gadalin
Конкретно
Виталий Никулищев
Я это и сделал
Александра
Могу готовый ко показать
Эмилия Пасынко
код
Анжелика Меламер
давай
1 ответ
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программка не работает, обновите версию!

begin
  ReadSeqInteger(ReadInteger('n=')).Select(t-gt;t*t).Println
end.

Пример
n= 6
-30 45 129 18 0 7
900 2025 16641 324 0 49
Валентина
Вот для чайников:var m, mas: array [1..30000] of integer; i, k, z, N, kv: integer;begin readln(N); for i := 1 to N do begin readln(m[i]); end; for k := 1 to N do begin kv := m[k] * m[k]; mas[k] := kv; end; for z := 1 to N do begin write(mas[z], ' '); end;end.
Милена
Спасибо огромное
Варвара Илькун
АПитон при чём?
Ольга Алоян
Это можно было написать и кароче (к примеру убрать begin и end), но конкретно так учат в 8-9 классах. При этом каждая строка понятная. Так что не вижу смысла для злости.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт