0 / 0 / 0
Регистрация: 18.10.2018
Сообщений: 118
1

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

24.10.2018, 20:19. Показов 4978. Ответов 6
Метки нет (Все метки)

Найти квадрат числа, если это число парное и куб числа, если оно непарное
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.10.2018, 20:19
Ответы с готовыми решениями:

Найти квадрат заданного числа, если оно кратно 2 и куб, если оно кратно 3
Сгенерировано целое число от 50 до 70. Найти его квадрат, если оно кратно 2 и куб, если оно кратно...

Задано три целых числа. Наибольшее число проверить на четность и если оно четное, то наименьшее из них заменить на квадрат третьего, а если нет, то ср
Задано три целых числа. Наибольшее число проверить на четность и если оно четное, то наименьшее из...

Задано три целых числа. Наибольшее число проверить на четность и если оно четное, то наименьшее из них заменить на квадрат третьего, а если нет, то ср
Задано три целых числа. Наибольшее число проверить на четность и если оно четное, то наименьшее из...

Вводится натуральное число. Вывести 1, если оно чётное и 0, если нечётное
2. Составить программу, в которой вводится натуральное число. Вывести 1, если оно чётное и 0, если...

6
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7483 / 4355 / 2771
Регистрация: 22.11.2013
Сообщений: 12,482
Записей в блоге: 1
24.10.2018, 21:39 2
Парное -- чётное.
Pascal
1
2
3
4
  Read(x);
  if Odd(x)
  then WriteLn(Sqr(x)*x)
  else WriteLn(Sqr(x));
0
0 / 0 / 0
Регистрация: 18.10.2018
Сообщений: 118
24.10.2018, 21:49  [ТС] 3
Обясни что что делает непонимаю суть програмы))

Добавлено через 3 минуты
Ну напиши всю програму, я немогу понять она не работает))
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7483 / 4355 / 2771
Регистрация: 22.11.2013
Сообщений: 12,482
Записей в блоге: 1
24.10.2018, 22:08 4
Есть очень простой, и главное -- работающий, рецепт:
1) Взять любую книжку по паскалю.
2) Прочитать первые страниц 100.
3) Применить прочитанное на практике.
0
0 / 0 / 0
Регистрация: 18.10.2018
Сообщений: 118
24.10.2018, 22:45  [ТС] 5
Спасибо, так и зделаю!!

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

Добавлено через 19 секунд
Кинь сайт если есть что-то
0
1 / 1 / 0
Регистрация: 27.10.2017
Сообщений: 91
24.10.2018, 22:49 6
Pascal
1
2
3
4
5
6
7
8
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, если оно нечетное.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2018, 22:56
Помогаю со студенческими работами здесь

Вывести на экран 0, если заданное число четное, или 1, если оно нечетное
Help!! :(

Ввести число. Если оно четное, разделить его на 10, если нечетное - увеличить на 15.
Ввести число. Если оно четное, разделить его на 10, если нечетное - увеличить на 15. Есть версия...

Даны два действительных числа. Вывести первое число, если оно больше второго, и оба числа, если это не так
Нужно написать в Eclipse,не понимаю как ввести переменные через клавиатуру, а суть программы надо...

Даны два действительных числа. Вывести первое число, если оно больше второго, и оба числа, если это не так
Даны два действительных числа. Вывести первое число, если оно больше второго, и оба числа, если это...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru