program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа: '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.
Ответ дал: Гость
Var s, m: integer; begin writeln('возраст саши = '); read(s); writeln('возраст маши = '); read(m); if s > m then writeln('саша старше маши'); if m > s then writeln('маша старше саши'); if m = s then writeln('одногодки'); end.
Популярные вопросы