Pascal
ввод <span>ReadLn(A1,A2,...AK)
вывод Whrite</span>(A1,A2,...AK)
QBasic
ввод Print
вывод Input
Сu(OH)₂→CuO+H₂O
n(CuO)=40/80=0.5моль
n(CuO):n(Cu(OH)₂)=1:1=0.5моль
n(CuO):n(H₂O)=1:1=0.5моль
m(Cu(OH)₂)=0.5*98=49г.
m(H₂O)=0.5*18=9г
Переведем все в десятичную систему счисления:
11011"2"=27"10"
200"3"=18"10"
33"8"=27"10"
102"5"=27"10"
значит сломаны весы под номером 2
А:=3
b:=5
c:=9
3mod3=0 (делится нацело), значит v:=1*3=3; t:=1; u:=3
5mod3=0 (не делится нацело) - не верно, действия не выполняются
9mod3=0 (делится нацело), значит v:=3*9=27; t:=2; u:=3+9=12
v=27 t=2 u=12
Var x,y:integer;
begin
writeln('введите x');
readln(x);
writeln('введите y');
readln(y);
if (x>0) and (y>0) then writeln ('точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('точка лежит во второй четверти');
if (x>0) and (y<0) then writeln ('точка лежит в четвёртой четверти');
if (x<0) and (y<0) then writeln ('точка лежит в третьей четверти');
if (x=0) or (y=0) then writeln ('такой точки нет');
<span> end.</span>