Вычислить квадраты и кубы от 10 до 20

@traagedy · Регистрация: 23.09.2012

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

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

@Adpecke · 23.09.2012, 17:50

Pascal

uses crt;
var i,kv,kb:integer;
begin
for i:=10 to 20 do
begin
kv:=i*i; {i в квадрате}
kb:=kv*i; {i в кубе}
writeln('I:',i,' в квадрате: ', kv,' в кубе: ',kb);
end
end.

@Ev[G]eN · 23.09.2012, 18:47

Pascal

const
  firstNum = 10;
  lastNum = 20;
var
  sqrNum, cubeNum, stdNum: Integer;
begin
  writeln('Число  Квадрат  Куб');
  writeln('--------------------');
  for stdNum:=firstNum to lastNum do
  begin
    sqrNum:=sqr(stdNum);
    cubeNum:=sqrNum * stdNum;
    writeln(stdNum:4, ' ':4, sqrNum:4, ' ':4, cubeNum:4);
  end;
  writeln('--------------------');
end.

@traagedy 0 / 0 / 0 Регистрация: 23.09.2012 Сообщений: 11
		1
	Вычислить квадраты и кубы от 10 до 20 23.09.2012, 17:25. Показов 5042. Ответов 2 Метки нет (Все метки) вычислить квадраты и кубы от 10 до 20.Вывести на экран в три вертикальные столбца 0

Опции темы

Вычислить квадраты и кубы от 10 до 20

Решение