Выведите на экран квадраты всех нечетных чисел от 1 до 30

[xes66]

помогите решить задачу на паскале.
очень нужно
задача: Выведите на экран квадраты всех нечетных чисел от 1 до 30.

[ZX Spectrum-128]

Квадраты - функция sqr
Нечетность - функция odd

[xes66]

Сообщение от ZX Spectrum-128

Квадраты - функция sqr
Нечетность - функция odd

спасибо. но мне бы программку. я в этом совсем почти ничего не помню. мне 40 лет. Это сыну в школу надо. а он не может. одну решил а эту никак.

[SaLoKiN]

одну решил а эту никак.

подозрительно как то это... первую задачу в студию. на основе ее расковыряем вторую

[xes66]

Сообщение от SaLoKiN

подозрительно как то это... первую задачу в студию. на основе ее расковыряем вторую

другая совсем не такая.
запросите у пол-ля 2 числа. рассчитайте и выведите результат: разницу этих чисел, если первое больше второго;
произведение этих чисел если второе > первого и их сумму, если они равны.

[Vanta11a]

Дак покажите, покажите.

[SaLoKiN]

Первую покажете, там пару-пар строк докинуть и дело в шляпе )

[xes66]

Сообщение от Vanta11a

Дак покажите, покажите.

program start
var k,y: real;
write(' запросите 2 числа: ');
readln (х,y);
f x>y then;
writeln ('разность',x,' и ',y,' ровна,'x-y);
f x<y then;
writeln ('произведение',x,' и ',y,' ровна,'x*y);
f x=y then;
writeln ('сумма',x,' и ',y,' ровна,'x+y);

[ZX Spectrum-128]

Ошибка в первой же строке. Потом в 4,5,7,9 и в последней. И в третьей

[Vanta11a]

Ну поехали по ошибкам.

program start;
var k,y: real;
write(' запросите 2 числа: ');
readln (х,y); // х не объявлен в переменных
if x>y then // ; - не надо после then
writeln ('разность',x,' и ',y,' ровна,'x-y);
if x<y then // ; - не надо после then
writeln ('произведение',x,' и ',y,' равно,'x*y);
if x=y then // ; - не надо после then
writeln ('сумма',x,' и ',y,' равна',x+y);

И в третьей

Орфографическая?