Предмет: Информатика, автор: sekretmr10

Надо написать программу в "Pascal"!Задание: напишите программу которая будет выводить на экран квадраты и кубы целых чисел

Ответы

Автор ответа: hrisanfov1

vari,n:integer;begin read(n); writeln('Квадраты чисел'); for i:=1 to n do write(i*i,' '); writeln; writeln('Кубы чисел'); for i:=1 to n do write(i*i*i,' ');end.

hrisanfov1: var
i,n:integer;
begin
read(n);
writeln('Квадраты чисел');
for i:=1 to n do
write(i*i,' ');
writeln;
writeln('Кубы чисел');
for i:=1 to n do
write(i*i*i,' ');
end.

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Другие предметы, автор: evelinasheronova2005

особенности воспитаний любых 3х народов

5 лет назад

Предмет: Химия, автор: mnorin45

Представьте себе,
что перед Вами в лаборатории
на восьми столах находятся:
1. Сахар и мел;
2. Соль и мел;
3. Изумруд и алмаз;
4. Алмаз и стекло;
5. Уксус и бензин;
6. Молоко и вода;
7. Сметана и белая гуашь;
8. Кварц и гипс.
Как бы Вы определили,
что есть что в каждой паре?
помогите пожалуйста

5 лет назад

Предмет: Алгебра, автор: rtcrcvgy56

Набор из 405 положительных чисел (необязательно различных), сумма которых равна 2029, назовём позитивным, если для любого натурального n от 1 до 405 сумма некоторых n чисел данного набора будет целой. Позитивный набор назовём оптимальным, если наибольшее из чисел этого набора принимает минимально возможное значение. Какое наибольшее количество целых чисел может быть в оптимальном наборе