Составлена таблица истинности для логического выражения, содержащего 8 переменных. Известно, что количество строк, в которых выражение принимает значение 0 равно 131. В скольких случаях логическое выражение примет значение 1?
Код в Turbo Pascal: USES Graph,CRT; VAR x,y,dx,dy,Device,Mode,i: Integer; BEGIN Device:=0; InitGraph(Device,Mode,''); x:=10; y:=10; dx:=1; dy:=1; i:=1; Repeat SetColor(Cyan); Circle(x,y,10); SetFillStyle(1,3); FloodFill(x,y,Cyan); Delay(10); SetColor(Black); Circle(x,y,10); SetFillStyle(1,0); FloodFill(x,y,Black); x:=x+dx; y:=y+dy; if (x>300) OR (y>200) then begin x:=10; y:=10; i:=i+1; end;
// PascalABC.Net 3.0, сборка 1052 var s1, s2: string; a, b: real; err: integer;
begin Writeln('Введи первый катет: ');Readln(s1); Val(s1, a, err); if err <> 0 then Writeln('Ошибка при попытке получить числовое значение') else begin Writeln('Введи второй катет: ');Readln(s2); Val(s2, b, err); if err <> 0 then Writeln('Ошибка при попытке получить числовое значение') else begin Writeln('Гипотенуза равна ', sqrt(a * a + b * b)); Writeln('Площадь равна ', 0.5 * a * b) end end end.
USES Graph,CRT;
VAR x,y,dx,dy,Device,Mode,i: Integer;
BEGIN
Device:=0;
InitGraph(Device,Mode,'');
x:=10; y:=10;
dx:=1; dy:=1;
i:=1;
Repeat
SetColor(Cyan);
Circle(x,y,10);
SetFillStyle(1,3);
FloodFill(x,y,Cyan);
Delay(10);
SetColor(Black);
Circle(x,y,10);
SetFillStyle(1,0);
FloodFill(x,y,Black);
x:=x+dx; y:=y+dy;
if (x>300) OR (y>200) then
begin
x:=10;
y:=10;
i:=i+1;
end;
until i>5;
END.