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

Алексей Чудинов 4.9 23 отзыва Рейтинг: 3 964 Общаться в чате var n,i,j,k:integer; begin readln(n); for i := 2 to trunc( n/2) do for j := i to trunc( n/2) do if i*j=n then inc(k) ; writeln(k=0); readln; end. Добрый день. Меня заинтересовал ваш ответ "var n,i,j,k:integer; begin readln(n); for i := 2 to trunc( n/2) do for j := i to trunc( n/2) do ..." на вопрос http://www.liveexpert.org/topic/view/157157-programmirovanie-na-yazike-paskal. Можно с вами обсудить этот ответ? Обсудить с экспертом 05.12.11

Иван Сергеевич 4.5 2 отзыва Рейтинг: 1 170 Общаться в чате var i,n,k:integer; begin k:=1; readln(n); for i:=2 to (n-1) do if n mod i =0 then begin k:=0; break; end; if k=0 then writeln('true') else writeln('false'); end. Добрый день. Меня заинтересовал ваш ответ "var i,n,k:integer;begink:=1;readln(n);for i:=2 to (n-1) doif n mod i =0 thenbegink:=0;break;end;if k..." на вопрос http://www.liveexpert.org/topic/view/157157-programmirovanie-na-yazike-paskal. Можно с вами обсудить этот ответ? Обсудить с экспертом 07.12.11

Глеб Черняк 4.8 345 отзывов Рейтинг: 704 506 1-й в Технологиях Общаться в чате Читать ответы

Олег Николаевич 4.9 47 отзывов Рейтинг: 26 577 2-й в Технологиях Общаться в чате Читать ответы

Alexander 4.9 66 отзывов Рейтинг: 17 568 3-й в Технологиях Общаться в чате Читать ответы

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