//так и не осознала как вводить функции с клавиатуры. Спрошу у учителя.
var b1,b2,b:boolean;

function imp(a, b : boolean) : boolean;
begin
imp:=(not a) or b;
end;

begin;
writeln('Implication');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,imp(b1,b2):7);

writeln('not (x) or y');
For b1:=false to true do
For b2:=false to true do
writeln(b1:7,b2:7,((not b1) or b2):7);

For b1:=false to true do
For b2:=false to true do
if imp(b1,b2)<>((not b1) or b2) then
begin;
writeln('Не эквивалентны');
exit;
end;
writeln('Эквивалентны');
<span>end.</span>

0 0

3 года назад

Составить блок схему:var a,b,c:integer;Begin read(a,b,c); if (a>b) then a:=a else a:=b; if (a>c) then a:=a else a:=c; wri

Владимир 666111

A=a - это глупость.
if not(a>b) then a:=b; <-так правильнее.

0 0

4 года назад

Паскаль .вычеркиватели.Вычеркните из слова Х буквы, стоящие на чётных местах.

Андрей Ко [7]

Var
s:String;
i:Integer;
Begin
Read(s);
for i:=1 to length(s) do
begin
if (i mod 2=0) then Delete(s,i,1);
end;
Writeln(s);
end.

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ: На руку знатной дамы претендовали два рыцаря. Чтобы выбрать самого достойного, дама предложил

fsfdgr

Решили поменяться лошадьми Я стараюсь финишировать первым на чужой лошади, тогда я выиграю так рыцаря на моей лошади обогнал

0 0

4 года назад