Ввести квадраты и кубы 10 чисел

@Dont · Регистрация: 06.11.2015

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

Ввести квадраты и кубы 10 чисел следущей последовательности: 1,2,4,7,11,16,22,29,37,46.

@KorrwiN · 15.05.2011, 01:32

Pascal

uses crt;
var
ikv,ikub,i,s:integer;
BEGIN
clrscr;
s:=1;
for i:=1 to 10 do begin
write('i=',s,'; ');
ikv:=s*s;
write('i^2=',ikv,'; ');
ikub:=s*s*s;
write('i^3=',ikub,'; ');
writeln;
s:=s+i;
end;
readln;
END.

вот - все работает!пользуйся на здоровье!)

@versa4e · 15.05.2011, 02:33

Сообщение от KorrwiN

Pascal

uses crt;
var
ikv,ikub,i,s:integer;
BEGIN
clrscr;
s:=1;
for i:=1 to 10 do begin
write('i=',s,'; ');
ikv:=s*s;
write('i^2=',ikv,'; ');
ikub:=s*s*s;
write('i^3=',ikub,'; ');
writeln;
s:=s+i;
end;
readln;
END.

вот - все работает!пользуйся на здоровье!)

У переменной ikub будет выход за диапазон значений при s=37. Тип надо сменить.

@Dont · 15.05.2011, 11:54

KorrwiN спасибо.

@KorrwiN · 15.05.2011, 16:25

Сообщение от dont

KorrwiN спасибо.

Обращайся!)

@Dont 0 / 0 / 0 Регистрация: 06.11.2015 Сообщений: 2
		1
	Ввести квадраты и кубы 10 чисел 15.05.2011, 00:51. Показов 3053. Ответов 4 Метки нет (Все метки) Ввести квадраты и кубы 10 чисел следущей последовательности: 1,2,4,7,11,16,22,29,37,46. 0

@Dont 0 / 0 / 0 Регистрация: 06.11.2015 Сообщений: 2
	15.05.2011, 11:54	4
	KorrwiN спасибо. 0

@KorrwiN 6 / 6 / 2 Регистрация: 29.04.2011 Сообщений: 22
	15.05.2011, 16:25	5
	Сообщение от dont KorrwiN спасибо. Обращайся!) 0

Опции темы

Ввести квадраты и кубы 10 чисел

Решение