Вывести на экран квадраты и кубы целых чисел от 1 до 8.
Паскаль.
Помогите пожалуйста,ничего не понимаю :(

Так-то чётные числа тоже целые. Программа выводит только результаты нечётных.

Следственно строчка if i mod 2 <>0 then не нужна.

vari:integer;beginfor i:=1 to 8 doif i mod 2 <>0 thenwriteln('Число ',i,' Квадрат ',i*i,' Куб ',i*i*i);end.