Информатика, опубликовано 2018-08-22 20:56:46 by Гость

Составить программу вывода на экран квадратов и кубов нечетных чисел от 13 до 48

Ответ оставил Гость

Var
i : integer;
begin
  for i := 13 to 47 do
if i mod 2 = 1 then
write(i : 5, );
writeln;

for i := 13 to 47 do
if i mod 2 = 1 then
write(i*i : 5, );
  writeln;

  for i := 13 to 47 do
if i mod 2 = 1 then
write(i*i*i : 5, );
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.