Begin
write('A':4, 'B':6, 'F1':6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write('X':4, 'Y':6, 'Z':6, 'F2':6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;<span>end.</span>
Во время работы с компьютером
Ответ:
sqr( 15 + x )
Объяснение:
Функция sqr() возводит в квадрат число.
//PascalABC.NET
var
m,r:real;
begin
Writeln('Введите масштаб карты (кол-во км в 1 см)');
Readln(m);
Writeln('Введите расстояние между точками, изображающими населенные пункты (см)');
Readln(r);
Writeln('Расстояние между населенными пунктами: ',m*r,' км');
<span>end.</span>