Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/14: Рейтинг темы: голосов - 14, средняя оценка - 4.64
Masyanya_girl
0 / 0 / 0
Регистрация: 07.04.2011
Сообщений: 37
#1

Задача с условием

10.01.2012, 14:37. Просмотров 2569. Ответов 6
Метки нет (Все метки)

с клавиатуры вводятся 2 числа a и b. если выражение (a mod 100)+(b div 10) четное, то n:=0, если не четное, то n:=1

Знаю, что задача по сути пустяковая, и знаю как решать через if и case... но проблема в том, что преподавательница просит решить без этих операторов. только при помощи ввода-вывода. Подскажите, это в принципе реально? и если да, то подскажите как именно это реализовать

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2012, 14:37
Ответы с готовыми решениями:

Задача на цикл с условием
Ввести целое число и определить,верно ли,что в его записи есть 2 одинаковые...

цикл с условием
хелп с задачей: Гражданин 1 марта открыл счет в банке, вложив 1000 рублей....

Сортировка с условием
Нужно, чтобы, когда пользователь вводит два нуля подрят imin и imax менялись...

Цикл с условием
Вычислить частичную сумму ряда S=(1/12)+(1/13)+(1/15)… Вычисление прекратить,...

Цикл с условием
Всем привет. Очень нужна помощь. задание: Шары расположены в форме...

6
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 950
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
10.01.2012, 14:52 #2
Pascal
1
2
3
4
5
6
7
8
var
 a, b, n: integer;
begin
 read(a, b);
  if ((a mod 100)+(b div 10)) mod 2 = 0 then n:=0
   else n:=1;
 writeln(n);
end.
прошу прощения...не дочитал...
0
tenager
33 / 22 / 26
Регистрация: 22.01.2011
Сообщений: 76
10.01.2012, 14:53 #3
Pascal
1
2
3
4
5
6
7
8
9
var
   a , b  : integer ;
begin
     Write ( 'a = ' ) ;
     ReadLn ( a ) ;
     Write ( 'b = ' ) ;
     ReadLn ( b ) ;
     WriteLn ( ( ( a mod 100 ) + ( b div 10 ) ) mod 2 ) ;
end .
Как-то так
0
Masyanya_girl
0 / 0 / 0
Регистрация: 07.04.2011
Сообщений: 37
10.01.2012, 14:55  [ТС] #4
Цитата Сообщение от tenager Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
var
   a , b  : integer ;
begin
     Write ( 'a = ' ) ;
     ReadLn ( a ) ;
     Write ( 'b = ' ) ;
     ReadLn ( b ) ;
     WriteLn ( ( ( a mod 100 ) + ( b div 10 ) ) mod 2 ) ;
end .
Как-то так
а если еще надо чтобы n :=0 или 1 в зависимости от четности или не четности?
0
tenager
33 / 22 / 26
Регистрация: 22.01.2011
Сообщений: 76
10.01.2012, 14:56 #5
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
   a , b  : integer ;
   n      : integer ;
begin
     Write ( 'a = ' ) ;
     ReadLn ( a ) ;
     Write ( 'b = ' ) ;
     ReadLn ( b ) ;
     n := ( ( a mod 100 ) + ( b div 10 ) ) mod 2 ;
     WriteLn ( n ) ;
end .
Ну так. Делов то...
1
Ev[G]eN
10.01.2012, 14:58
  #6

Не по теме:

не успел :)

0
Masyanya_girl
0 / 0 / 0
Регистрация: 07.04.2011
Сообщений: 37
10.01.2012, 15:02  [ТС] #7
Цитата Сообщение от tenager Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
   a , b  : integer ;
   n      : integer ;
begin
     Write ( 'a = ' ) ;
     ReadLn ( a ) ;
     Write ( 'b = ' ) ;
     ReadLn ( b ) ;
     n := ( ( a mod 100 ) + ( b div 10 ) ) mod 2 ;
     WriteLn ( n ) ;
end .
Ну так. Делов то...
огроменный спасиб..... забыла про это свойтво mod2
0
10.01.2012, 15:02
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2012, 15:02

Прога с условием
Вводится два целых числа. Поместить большее из них в переменную МАХ, меньшую в...

Значение функции с условием
Дано: a = -0,5 b = 0,2 Условие t Если t больше или равно а , то f=at2ln t...

Программирование циклов с условием
Привет всем. Не получается задачку решить, помогите пожалуйста....


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

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

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