Предмет: Информатика,
автор: aleksandrasemen3
Вычислить квадраты N чисел в Паскале
AlexanderMikhailov:
Не поддакивайте
А выводить их как надо? Просто через пробел?
Это питон, а не паскаль
да
Именно
Я это и сделал
Могу готовый ко показать
код
давай
Ответы
Автор ответа:
0
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
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger(ReadInteger('n=')).Select(t->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.
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 классах. При этом каждая строчка понятная. Так что не вижу смысла для агрессии.
Похожие вопросы
Предмет: Музыка,
автор: aleksandragolubevazp
Предмет: Русский язык,
автор: leonidsokolov07
Предмет: История,
автор: vlada2006best
Предмет: Математика,
автор: romaaleksin
Предмет: Алгебра,
автор: hutenkoyana