хелп с задачей по паскалю плиз

[miniden]

истенный ли пример (x>1)and(x<5)
x:=5
ответ нет
требуеться написать программу, а я не въезджаю как.......

[Piflit]

переформулируйте вопрос

[miniden]

по информатике задали написать программу вот она, на украинском языке:
Чи істинний складений логічний вираз (x>1)and(x<5)
якщо а)х=0(відповідь ні)
б)х=2
в)х=5
г)х=10
д)х=15?

[SkanErr]

Эмм паскаль не помню но кажется что-то типо того :rolleyes: :


var x:Integer;
begin
Readln(x);
if (x>1) and (x<5) then
Writeln('True')
else
Writeln('False');
end.

[Piflit]

после вара бегин.
miniden я що, украiнский роблю?

[miniden]

такой класній вопрос, а как из паскаля, из компилятора, копировать в буфер обмена?

[SkanErr]

Я думаю 5 результатов можно и вручную перепечатать.

[Piflit]

(фотоаппарат || (монитор+сканнер)) + FineReader

[miniden]

буго га упал пат стол

[SkanErr]

ну или prtScreen + фотошоп+файн ридер

[Keeper_man]

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

[Piflit]

открой сорц блокнотом

[miniden]

оу, уря, сработала, ток чет моя не сработала....буду искать баги теперь я не получу 2 поинфе, и буду знать как юзать логический оператор and

[[Y.P.C.]yla]

miniden
хахах))я смотрю українські студенти сегодня атакуют не по детски!!:D

зы: http://forum.antichat.ru/showthread.php?p=518984#post518984 мжтвы знаете...м?=\

[miniden]

да украинцы руляд!!!и мер наш рулед!!))но об этом в болталке)

[miniden]

эм......снова фигня......вот блин конспект дали а вот примеры как строить програму такого типа не дали, зато домашку с радостью дали!!аж 7 задач!!!!!!
фигня в следущем
какого значения(правда или ложъ) будет пример (x<=2) or (x>5) если х=0(ответ прада)
требуесть написать программу

[W!z@rD]

эм......снова фигня......вот блин конспект дали а вот примеры как строить програму такого типа не дали, зато домашку с радостью дали!!аж 7 задач!!!!!!
фигня в следущем
какого значения(правда или ложъ) будет пример (x<=2) or (x>5) если х=0(ответ прада)
требуесть написать программу

program la;
var x:byte;
begin
readln(x);
if (x=<2) or (x>5) then writeln('false') else
if x = 0 then writeln('true');
end.

не понял смысла... а если значние будет = 3..5???

[SkanErr]

var x:integer;
begin
ReadLn(x);
if (x=<2) or (x>5)
then WriteLn('True')
else
WriteLn('False');
end.