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

Владимир 5.0 2 отзыва Рейтинг: 1 435 Общаться в чате var a,b:integer; begin   readln(a);   b:=0;   while a<>0 do       begin         if (a mod 2 =0) and (a mod 7 =0) then         inc(b);        readln(a);       end;   writeln(b); end. Добрый день. Меня заинтересовал ваш ответ "var a,b:integer;begin  readln(a);  b:=0;  while a<>0 do      begin        if (a mod 2 =0) and ..." на вопрос http://www.liveexpert.org/topic/view/149200-olimpiada-po-informatike. Можно с вами обсудить этот ответ? Обсудить с экспертом 01.12.11

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

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