Var a,b :integer; begin writeln('a'); readln(a); writeln('b'); readln(b); while a>0 do Begin if b>0 then writeln ('a и б одного знака'); else writeln ('a и б разного знака); end; while a<0 do Begin if b<0 then writeln ('a и б одного знака'); else writeln ('a и б разного знака); end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
