Требуется проверить задачу

golden · Регистрация: 21.07.2011

даны два целых числа А,В. проверить истинность высказывания "хотя бы одно из чисел А и В нечетное".
uses crt;
var a,b:integer;
c:boolean;
begin
ClrScr;
writeln ('введите число');
readln(a);
writeln ('введите число');
readln(b);
if ((a mod 2 <> 0 )) or ((b mod 2 <> 0 )) then
begin c:=true;
writeln (c);
end
else
writeln (c);
readln;
end.

мне кажется что чего то не хватает????????

Forestop · 23.07.2011, 14:37

А что покажет программа если у тебя "с" не имеет начального значения? - то что в памяти, поэтому ему нужно присвоить false вот код:
и можно обойтись без 3 переменной!

Pascal Код:

program z1;
var a, b: integer;
begin
 readln ( a, b );
 if ( a mod 2 = 0 ) and ( b mod 2 = 0 ) then
  writeln ( 'Не верно' )
 else
  writeln ( 'Верно' );
end.

golden · 23.07.2011, 14:46

а можно вместо слов неверно или верно написать false или true

Forestop · 23.07.2011, 14:49

конечно.

Pascal Код:

program z1;
var a, b: integer;
begin
 readln ( a, b );
 if ( a mod 2 = 0 ) and ( b mod 2 = 0 ) then
  writeln ( 'False' )
 else
  writeln ( 'True' );
end.

golden · 23.07.2011, 14:51

клева!спасибо!глянь пожалуйста задачку оператор выбора!!!

golden · 23.07.2011, 14:58

как поставить задержку экрана?

Forestop · 23.07.2011, 14:59

какую задержку?

golden · 23.07.2011, 15:03

просто после ввода данных я нажимаю интер и меня выкидывает на саму задачу

Forestop · 23.07.2011, 15:03

перед end. пиши readln; и всё

Pascal Код:

program z1;
var a, b: integer;
begin
 readln ( a, b );
 if ( a mod 2 = 0 ) and ( b mod 2 = 0 ) then
  writeln ( 'False' )
 else
  writeln ( 'True' );
 readln;
end.

golden · 23.07.2011, 15:08

оо спасибо!заработала

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите проверить задачу срочно	SirrDoks	Pascal	0	14.03.2012 10:10
Требуется решить задачу по ОКТ	Shustic	Pascal	1	09.06.2011 01:07
Требуется проверить код на ошибки	ilyaskaz	Pascal	1	03.06.2011 15:52
Требуется подправить задачу	Наталька	C++ Builder	11	23.05.2011 23:02
Требуется решить задачу	The_Fall	Вопросы начинающих программистов	0	29.03.2011 02:51
Требуется решить задачу на С++	shplint	С/С++	4	12.09.2009 16:14
Требуется проверить курсовую работу	Serega_Mexanik	Зацените!	8	20.05.2006 18:27
Требуется решить задачу	chip	Pascal	1	05.02.2006 16:02
Требуется исправить задачу	xander-007	Pascal	3	20.12.2005 23:06
Требуется решить задачу	MadAngel	Pascal	5	04.10.2005 08:31
Требуется проверить программу шифровщика на ошибки	ACTION_MAN	Delphi	10	24.08.2005 12:22
Требуется проверить написанный код	Anonymous	PHP	3	12.10.2002 17:35

golden Member Сообщений: 52 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 21.07.2011	23.07.2011, 14:46 а можно вместо слов неверно или верно написать false или true

Forestop Member Сообщений: 100 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 13.06.2011	23.07.2011, 14:49 конечно. Pascal Код: program z1; var a, b: integer; begin readln ( a, b ); if ( a mod 2 = 0 ) and ( b mod 2 = 0 ) then writeln ( 'False' ) else writeln ( 'True' ); end.

golden Member Сообщений: 52 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 21.07.2011	23.07.2011, 14:51 клева!спасибо!глянь пожалуйста задачку оператор выбора!!!

golden Member Сообщений: 52 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 21.07.2011	23.07.2011, 14:58 как поставить задержку экрана?

Forestop Member Сообщений: 100 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 13.06.2011	23.07.2011, 14:59 какую задержку?

golden Member Сообщений: 52 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 21.07.2011	23.07.2011, 15:03 просто после ввода данных я нажимаю интер и меня выкидывает на саму задачу

Forestop Member Сообщений: 100 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 13.06.2011	23.07.2011, 15:03 перед end. пиши readln; и всё Pascal Код: program z1; var a, b: integer; begin readln ( a, b ); if ( a mod 2 = 0 ) and ( b mod 2 = 0 ) then writeln ( 'False' ) else writeln ( 'True' ); readln; end.

golden Member Сообщений: 52 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Регистрация: 21.07.2011	23.07.2011, 15:08 оо спасибо!заработала

Ads