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

@VladCJRV · Регистрация: 02.06.2014

Помогите составить програму!

@Svager · 02.06.2014, 23:48

Pascal

uses crt;
var a,b:integer;
begin
 write('a=');
  readln(a);
 write('b=');
  readln(b);
 if (((a>0) and (b<0)) or ((a<0) and (b>0))) then
  writeln('Ðàçìíîãî çíàêàê..')
 else
  writeln('Îäè è òîò æå çíàê !');
end.

@VladCJRV · 03.06.2014, 08:49 **[ТС]**

Большое спасибо!

@CodeR · 03.06.2014, 08:58

Pascal

Var a,b:real;
Begin
    write('a,b: ');readln(a,b);
    if a*b>0 then writeln('Одного знака')
     else writeln('Разного знака');
    readln;
End.

@Cyborg Drone · 03.06.2014, 11:37

CodeR, так нагляднее, но менее верно. А если я введу оба числа 1E20? Ваша программа либо вылетит, либо выдаст неверный результат, а программа от Svager выдаст верный результат.

@tuy-vasiliy · 03.06.2014, 11:45

CodeR, А если ввести два нуля в Вашем случае... Ошибочку выдаст программка!!!

Новичок · 03.06.2014, 11:55

Pascal

var a,b:Integer;
begin
Readln(a,b);
Writeln((a mod 2) * (b mod 2)<0);
Readln;
end.

@VladCJRV 0 / 0 / 0 Регистрация: 02.06.2014 Сообщений: 2
		1
	Составить программу, которая изучает, одного ли знака числа, которые вводятся с клавиатуры 02.06.2014, 22:54. Показов 1288. Ответов 6 Метки нет (Все метки) Помогите составить програму! 0

@VladCJRV 0 / 0 / 0 Регистрация: 02.06.2014 Сообщений: 2
	03.06.2014, 08:49 [ТС]	3
	Большое спасибо! 0

@Cyborg Drone Модератор 9534 / 4861 / 3230 Регистрация: 17.08.2012 Сообщений: 15,203
	03.06.2014, 11:37	5
	CodeR, так нагляднее, но менее верно. А если я введу оба числа 1E20? Ваша программа либо вылетит, либо выдаст неверный результат, а программа от Svager выдаст верный результат. 0

@tuy-vasiliy Паяльщик 50 / 50 / 13 Регистрация: 05.11.2013 Сообщений: 404
	03.06.2014, 11:45	6
	CodeR, А если ввести два нуля в Вашем случае... Ошибочку выдаст программка!!! 0

Опции темы

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

Решение