Var a,b:integer; begin writeln('введите число (км)'); readln(a); b:=a*1000 writeln('метры = ',b); end.
задание 2 program dfg; var x,y,b,d:real; begin writeln('введите стоимость гостиницы (за сутки)'); readln(x); if x>0 then begin writeln('введите стоимость питания (за сутки)'); readln(y); if y>0 then beginwriteln('введит стоимость сувинир (за сутки)'); readln(b); if b>0 then begin d:=(x+y+b)*7; writeln('необходимая сумма',d); end else writeln('число не может быть отрицательным'); end else writeln('число не может быть отрицательным'); end else writeln('число не может быть отрицательным'); end.
1) ((1v0) & (1&1)) & (0v1) = (1 & 1) & 1 = 1 & 1 = 1
2) ((1&1) v 0) & (0v1) = (1 v 0) & 1 = 1 & 1 = 1
3) ((0&0) v 0) & (1v1) = (0 v 0) & 1 = 0 & 1 = 0
4) (A v 1) v (B v 0) = 1 v B = 1
5) ((1&A) v (B&0)) v 1 = (A v 0) v 1 = A v 1 = 1
6) 1 v A & 0 = 1 v 0 = 1