Найти квадрат числа, если это число четное и куб числа, если оно нечетное

@Kiki2018 · Регистрация: 18.10.2018

Найти квадрат числа, если это число парное и куб числа, если оно непарное

@bormant · 24.10.2018, 21:39

Парное -- чётное.

Pascal

  Read(x);
  if Odd(x)
  then WriteLn(Sqr(x)*x)
  else WriteLn(Sqr(x));

@Kiki2018 · 24.10.2018, 21:49 **[ТС]**

Обясни что что делает непонимаю суть програмы))

Добавлено через 3 минуты
Ну напиши всю програму, я немогу понять она не работает))

@bormant · 24.10.2018, 22:08

Есть очень простой, и главное -- работающий, рецепт:
1) Взять любую книжку по паскалю.
2) Прочитать первые страниц 100.
3) Применить прочитанное на практике.

@Kiki2018 · 24.10.2018, 22:45 **[ТС]**

Спасибо, так и зделаю!!

Добавлено через 30 секунд
Посоветуй електро-книжку ))

Добавлено через 19 секунд
Кинь сайт если есть что-то

@BestInTheWorld · 24.10.2018, 22:49

Pascal

program test;
var x:integer;
begin
 Read(x);
 if Odd(x)
 then WriteLn(Sqr(x)*x)
 else WriteLn(Sqr(x));
end.

функция odd - возвращает истину для нечетных чисел, и ложь для четных. (Проверяет твое число на четность)
функция sqr - возвращает квадрат твоего введенного числа X, т.к. тебе нужно найти куб числа ты еще домножаешь на X, если оно нечетное.

@bormant · 24.10.2018, 22:56

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

Посоветуй електро-книжку ))

Как вариант: http://www.cyberguru.ru/progra... ?showall=1

Ссылка на нее есть в прикрепленной теме общего раздела по Паскалям:
Pascal FAQ

@Kiki2018 0 / 0 / 0 Регистрация: 18.10.2018 Сообщений: 118
		1
	Найти квадрат числа, если это число четное и куб числа, если оно нечетное 24.10.2018, 20:19. Показов 4978. Ответов 6 Метки нет (Все метки) Найти квадрат числа, если это число парное и куб числа, если оно непарное __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Kiki2018 0 / 0 / 0 Регистрация: 18.10.2018 Сообщений: 118
	24.10.2018, 21:49 [ТС]	3
	Обясни что что делает непонимаю суть програмы)) Добавлено через 3 минуты Ну напиши всю програму, я немогу понять она не работает)) 0

@bormant Модератор 7483 / 4355 / 2771 Регистрация: 22.11.2013 Сообщений: 12,482 Записей в блоге: 1
	24.10.2018, 22:08	4
	Есть очень простой, и главное -- работающий, рецепт: 1) Взять любую книжку по паскалю. 2) Прочитать первые страниц 100. 3) Применить прочитанное на практике. 0

@Kiki2018 0 / 0 / 0 Регистрация: 18.10.2018 Сообщений: 118
	24.10.2018, 22:45 [ТС]	5
	Спасибо, так и зделаю!! Добавлено через 30 секунд Посоветуй електро-книжку )) Добавлено через 19 секунд Кинь сайт если есть что-то 0

@bormant Модератор 7483 / 4355 / 2771 Регистрация: 22.11.2013 Сообщений: 12,482 Записей в блоге: 1
	24.10.2018, 22:56	7
	Сообщение от Kiki2018 Посоветуй електро-книжку )) Как вариант: http://www.cyberguru.ru/progra... ?showall=1 Ссылка на нее есть в прикрепленной теме общего раздела по Паскалям: Pascal FAQ 0

Опции темы