На фото поставлены цифры соответствия
Для Pascal ABC
uses GraphABC;
begin
Window.Title := 'Apple';
var y,y0,x,t: integer;
Brush.Color := clGreen;
y0:=70;
x:=70;
LockDrawing;
for t := 0 to 8 do
begin
y:=y0+5*t*t;
Window.Clear(clWhite);
Circle(x,y,50);
Redraw;
Sleep(100);
end;
end.
Упрощение
(A+B)(!A+B) -> A(!A+B)+B(!A+B) A(!A+B) -> !AA+BA !AA -> 0 !AA+BA -> BA B(!A+B) -> !AB+BB BB -> B !AB+BB -> BA(!A+B)+B(!A+B) -> B
таблица истинности
A B F0 0 = 00 1 = 11 0 = 01 1 = 1
Вот, это для первого и второго соответственно =)
Program sagen_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*2.1366;
writeln (i,' сажень =',a,' м');
end;
end.
program fut_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*0.3048;
writeln (i,' фут =',a,' м');
end;
end.
program drahm_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*3.7325;
writeln (i,' драхм =',a,' г');
end;
end.
program unziy_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*29.86;
writeln (i,' унция =',a,' г');
end;
end.