Если оба числа четные, то оба возвестив квадрат

@stasz0r · Регистрация: 30.10.2012

Студворк — интернет-сервис помощи студентам

Даны 2 вещественных числа, если они оба четные то оба возвестив квадрат, если нет то к каждому из них прибавить 3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var a, b:integer;
Begin
readln(a, b);
if ((a mod 2>0)) and ((b mod 2>0)) then writeln ('Их квадрат равен',  sqr(a), ' ', sqr(b))
else
Begin
a:=a+3;
b:=b+3;
end;
writeln(a);
writeln(b);
end.

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

@MayaNash · 30.10.2012, 18:29

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

2 вещественных числа, если они оба четные

вещественное число не может быть четным или нечетным.

это определенно не ты писал программу.

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

if ((a mod 2>0)) and ((b mod 2>0))

поменяй > на =

@stasz0r · 30.10.2012, 18:34 **[ТС]**

ооо, от души чувак, работает )

как закрыть тему?

@MayaNash · 30.10.2012, 18:34

stasz0r, никак. темы закрывают модераторы.

@SladkayaVata · 30.10.2012, 18:35

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a, b: integer;
 
begin
  readln(a, b);
  if odd(a) and odd(b) then begin a := sqr(a); b := sqr(b); end
  else 
  begin
    a := a + 3; 
    b := b + 3;
  end;
  writeln('a=',a);
  writeln('b=',b);
end.

@MayaNash · 30.10.2012, 18:36

stasz0r, не, сама функция mod что возвращает?

придется мне за собой же флуд подтирать...

Добавлено через 25 секунд
SladkayaVata, да уже решили ж вопрос

@stasz0r · 30.10.2012, 18:37 **[ТС]**

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

Pascal
1
if odd(a) and odd(b) then begin a := sqr(a); b := sqr(b); end

odd нельзя это использовать

нужно именно атк ка кнписал

не дошли ещё до odd )

Добавлено через 12 секунд

Сообщение от Керра

stasz0r, не, сама функция mod что возвращает?

придется мне за собой же флуд подтирать...

Добавлено через 25 секунд
SladkayaVata, да уже решили ж вопрос

не понимаю тебя )

@MayaNash · 30.10.2012, 18:41

mod - это остаток от деления. например: 5 mod 3 = 2. 5 делим на 3, получается 1 целая и 2 в остатке.

Добавлено через 1 минуту
все, прочитал, теперь почищу тему

@stasz0r · 30.10.2012, 18:41 **[ТС]**

спасибо!

@MayaNash · 30.10.2012, 18:42

stasz0r, тему закрываю.

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@stasz0r 4 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 9
	30.10.2012, 18:34 [ТС]
	ооо, от души чувак, работает ) как закрыть тему? 0

@MayaNash 1296 / 470 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	30.10.2012, 18:34
	stasz0r, никак. темы закрывают модераторы. 1

@MayaNash 1296 / 470 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	30.10.2012, 18:36
	stasz0r, не, сама функция mod что возвращает? придется мне за собой же флуд подтирать... Добавлено через 25 секунд SladkayaVata, да уже решили ж вопрос 0

@MayaNash 1296 / 470 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	30.10.2012, 18:41
	mod - это остаток от деления. например: 5 mod 3 = 2. 5 делим на 3, получается 1 целая и 2 в остатке. Добавлено через 1 минуту все, прочитал, теперь почищу тему 1

@stasz0r 4 / 0 / 0 Регистрация: 30.10.2012 Сообщений: 9
	30.10.2012, 18:41 [ТС]
	спасибо! 0

@MayaNash 1296 / 470 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	30.10.2012, 18:42
	stasz0r, тему закрываю. 1