Создайте в pascal таблицу кубов всех четных чисел от нуля до пятидесяти

@natali989 · Регистрация: 19.01.2014

Cоставьте таблицу кубов всех четных чисел от 0 до 50

@L_e_g_i_o_n · 19.01.2014, 18:10

Pascal

var
  i : integer;
begin
for i:=0 to 50 do
begin
  if i mod 2 = 0 then
     writeln(i:2,'  |  ',power(i,3):6:0);
end;
writeln;
end.

@natali989 0 / 0 / 0 Регистрация: 19.01.2014 Сообщений: 11
		1
	Создайте в pascal таблицу кубов всех четных чисел от нуля до пятидесяти 19.01.2014, 17:46. Показов 1464. Ответов 1 Метки нет (Все метки) Cоставьте таблицу кубов всех четных чисел от 0 до 50 0

Опции темы

Решение