Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
LMapper
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
1

Проверка четности числа

30.09.2011, 18:42. Просмотров 1199. Ответов 8
Метки нет (Все метки)

Напишите пожалуйста код, проверки чётное число или нет
с if, else if
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2011, 18:42
Ответы с готовыми решениями:

Составить программу для проверки четности числа заданного пользователем
ПОМОГИТЕ!!! у меня проблема не могу никак составить программу=((( Составить программу для проверки...

Определение четности/нечетности чисел
Программа узнавания четных и нечетных чисел

Кодирование методом контроля четности
Задание: Кодирование методом контроля чётности. Вводится k - число символов в блоке и...

Реализовать 8-разрядную схему контроля четности
Ребят,чо эт ваще такое?! У меня глаза разъезжаются) Реально не понимаю этого задания.Получил его...

Проверка простоты числа
Доброго времени суток, вот два часа мучаюсь не могу понять где ошибка. Ввожу 2 пишет что оно не...

8
Jaguar
393 / 279 / 38
Регистрация: 06.08.2010
Сообщений: 834
30.09.2011, 19:13 2
Pascal
1
if a = 4 then Da else Net
0
Russel1233
16 / 16 / 8
Регистрация: 10.09.2011
Сообщений: 117
30.09.2011, 19:17 3
ну я не профи в написании но суть в том что при делении на 2 должно быть челое число
then readln('четное')
else readln('не четное')
0
LMapper
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
30.09.2011, 19:29  [ТС] 4
Jaguar, чет я не понял, что это ?

Добавлено через 3 минуты
Задание сделать прогу, которая проверяет чётное введёное число(A) или нет, если чётное то
выводит A*A
если не чётное, то A*A+1

Вот что сейчас есть у меня, надо вставить проверку на чётное или нет.
Pascal
1
2
3
4
5
6
7
8
9
10
program Max;
var
  A,B,C:real;
begin
write('Ââåäèòå A =  ');
read(A);
if [ÏÐÎÂÅÐÊÀ רÒÍÎÅ ÈËÈ ÍÅÒ] then write('',B)  else write('',C);
B:=A*A;
C:=A*A+1;
end.
0
30.09.2011, 19:29
Russel1233
16 / 16 / 8
Регистрация: 10.09.2011
Сообщений: 117
30.09.2011, 19:36 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

ща попробую

Добавлено через 3 минуты
Pascal
1
2
3
4
5
6
7
8
program Max;
var
  A:integer;
begin
readln(A);
if A mod 2=0 then writeln(A*A)  
                   else writeln(A*A+1);
end.
вот
проверил
работает вроде как
0
LMapper
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
30.09.2011, 19:51  [ТС] 6
И что это ? Тупо умножает A*A
0
Russel1233
16 / 16 / 8
Регистрация: 10.09.2011
Сообщений: 117
30.09.2011, 19:56 7
напиши нормально задачу!!!!!
которая проверяет чётное введёное число(A) или нет, если чётное то
выводит A*A
если не чётное, то A*A+1
вот же
как тут ты написал
1
LMapper
9 / 9 / 0
Регистрация: 27.09.2011
Сообщений: 97
30.09.2011, 19:59  [ТС] 8
Оу сорри, у меня просто несколько задач, ты еще написал так, сначало не понял что это.
+сик твой
0
Kostweb
7 / 7 / 3
Регистрация: 18.09.2011
Сообщений: 27
01.10.2011, 08:01 9
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
uses crt;
var
   a :integer;
Begin
 ClrScr;
 write('Ââåäèòå ÷èñëî: ');
 read(a);
 if a mod 2 = 0 then write('×èñëî ', a, ' ÷åòíîå')
 else write('×èñëî ', a, ' íå÷åòíîå');
End.
0
01.10.2011, 08:01
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.10.2011, 08:01

Проверка числа на чётность
Чётность числа. Напишите программу которая определяет является ли число чётным. Заранее...

Проверка числа на простоту
Здравствуйте,задача вроде решена,но не на все 100%,иногда выдает неправильный ответ: Условия ...

Проверка числа на простоту
Надо проверить число на простоту с помощью функции. Вот примерное решение, надо где-то что-то...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.