построим таблицу истинности данного выражения
поскольку переменных две, то в таблице будет 4 строки
столбцов будет тоже два (2 переменные +2 операции)
А В НЕ(В) А ИЛИ НЕ (В)
0 0 1 1
0 1 0 0
1 0 1 1
1 1 0 1
ОТВЕТ количество наборов, при которых логическое выражение
А ИЛИ НЕ (В) будет истинным равно 3.
Var a: string;
i: integer;
begin
readln(i);
a := IntToStr(i);
for i := length(a) downto 1 do
write(a[i]);
<span>end.
Как вариант. Строку считывать не стал, раз уж работаем с числом, то и вводится путь число:)</span>
Program a;var d:integer;x,y:real;beginreadln(x,y);write('действие: ');readln(d);case(d) of1: x:=x+y;2: x:=x-y;3: x:=x*y;4: x:=x/y;end;write(x);end.
program a;var d:integer;m:real;beginreadln(m);write('единицы: ');readln(d);case(d) of1: write(m,'кг');2:begin m:=m/1000000; write(m,'кг');end;3:begin m:=m/1000; write(m,'кг');end;4:begin m:=m*1000; write(m,'кг');end;5:begin m:=m*100; write(m,'кг');end;end;end.
Var
a,b:array[1..100]of integer;
i,max,min,n:integer;
begin
readln(n);
max:=0; min:=32;
for i:=1 to n do
begin
readln(a[i],b[i]);
if a[i]>max then max:=a[i];
if b[i]<min then min:=b[i];
end;
if min>=max then
writeln('YES')
else writeln('NO');
end.
Пример:
3
1 5
3 10
4 14
<span>YES</span>
var
p: real;
d, a1, i : Integer;
begin
a1 := 9;
d := 4;
p := 1;
for i := 1 to 8 do
p := p * (a1 + (i - 1) * d);
Write( p:0:0 );
end.