Program n_1;
var m,k: integer;
begin
if (m>0) and (k>0) then
begin
m:=m*10;
k:=k*10;
end;
if ((m>0) and (k<0)) or ((m<0) and (k>0) then
begin
m:=m*100;
k:=k*100;
end;
if (m<0) and (k<0) then
begin
m:=m*1000;
k:=k*1000;
end;
writeln(m);
writeln(k);
end.
1.Возьми персик из пакета, открой воду, вымай персик, закрой воду, положи персик на тарелку.
2. Есть персики в пакете? Есть персики на тарелке?
3. Нет персиков в пакете? Нет персиков на тарелке?
.txt .amr, .cda, .imelody, .imy, .flac,