Вывести на экран таблицу квадратов и кубов целых чисел от 1 до 10

@slav9n14 · Регистрация: 18.11.2014

Author24 — интернет-сервис помощи студентам

Написать программу,которая выводи на экран таблицу квадратов и кубов целых чисел от 1 до 10.Столбцы таблицы должны иметь обозоначения типа а,a^,a^3
но нужно чтобы табуляция была такая пример:
1^2 = 1 1^3 = 1
2^2 = 4 2^3 = 8
и так до 10

@Puporev · 21.01.2015, 18:00

Pascal

uses crt;
var i,j:integer;
begin
clrscr;
write(#218);
for i:=1 to 17 do
if i mod 6=0 then write(#194) else write(#196);
writeln(#191);
write(#179);
write('  a  ',#179);
write(' a^2 ',#179);
writeln(' a^3 ',#179);
write(#195);
for i:=1 to 17 do
if i mod 6=0 then write(#197) else write(#196);
writeln(#180);
for j:=1 to 10 do
writeln(#179,j:5,#179,j*j:5,#179,j*j*j:5,#179);
write(#192);
for i:=1 to 17 do
if i mod 6=0 then write(#193) else write(#196);
write(#217);
readln
end.

Добавлено через 2 минуты
Опс, это не так...

Добавлено через 11 минут
Наверное так нужно.

Pascal

uses crt;
var i,j:integer;
begin
clrscr;
write(#218);
for i:=1 to 29 do
if i mod 10=0 then write(#194) else write(#196);
writeln(#191);
write(#179);
write('    a    ',#179);
write('   a^2   ',#179);
writeln('   a^3   ',#179);
write(#195);
for i:=1 to 29 do
if i mod 10=0 then write(#197) else write(#196);
writeln(#180);
for j:=1 to 10 do
writeln(#179,j:5,'    ',#179,j:2,'^2=',j*j:4,#179,j:2,'^3=',j*j*j:4,#179);
write(#192);
for i:=1 to 29 do
if i mod 10=0 then write(#193) else write(#196);
write(#217);
readln
end.

@slav9n14 1 / 1 / 0 Регистрация: 18.11.2014 Сообщений: 34
		1
	Вывести на экран таблицу квадратов и кубов целых чисел от 1 до 10 21.01.2015, 15:47. Показов 13361. Ответов 1 Метки нет (Все метки) Написать программу,которая выводи на экран таблицу квадратов и кубов целых чисел от 1 до 10.Столбцы таблицы должны иметь обозоначения типа а,a^,a^3 но нужно чтобы табуляция была такая пример: 1^2 = 1 1^3 = 1 2^2 = 4 2^3 = 8 и так до 10 0

	21.01.2015, 18:00

Опции темы

Вывести на экран таблицу квадратов и кубов целых чисел от 1 до 10

Решение