Получить ответ

Удачник 5.0 1 отзыв Рейтинг: 1 940 Общаться в чате var P, M: integer, x: real; begin uses crt; clrscr; x := 1; P := 0; M := 0; while x <> 0 do begin write ('Vvedite chislo: '); readln (x); if x > 0 then P := P + 1; if x < 0 then M := M + 1; end; writeln ('Pologitelnih chisel: ', P, 'Otricatelnih chisel: ', M); end. Добрый день. Меня заинтересовал ваш ответ "var P, M: integer, x: real;beginuses crt; clrscr;x := 1; P := 0; M := 0;while x <> 0 dobeginwr..." на вопрос http://www.liveexpert.org/topic/view/887132-zadacha-v-pasclaabc. Можно с вами обсудить этот ответ? Обсудить с экспертом 27.12.13

Еva 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы