Вывести квадраты и кубы 10 чисел следующей последовательности

04.05.2011, 18:31. **Показов** 3605. **Ответов** 1

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

не используя массивы, только понятия цикла и не пользуясь "step"
Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16

@Высокий · 04.05.2011, 18:49

Pascal

program asd;
uses crt;
var x,i: integer;
begin clrscr;
i:=i; x:=1;
writeln('Ïîñëåä.   |   Êâàäðàòû   |       Êóáû');
writeln('=====================================');
while i<=10 do begin
x:=x+i;
inc(i);
writeln(x:6,'|':5,sqr(x):11,'|':4,(x*x*x):11);
end;
readkey
end.

lyrisme
		1
	Вывести квадраты и кубы 10 чисел следующей последовательности 04.05.2011, 18:31. Показов 3605. Ответов 1 Метки нет (Все метки) не используя массивы, только понятия цикла и не пользуясь "step" Вывести квадраты и кубы 10 чисел следующей последовательности: 1, 2, 4, 7, 11, 16

Опции темы

Вывести квадраты и кубы 10 чисел следующей последовательности

Решение