freepascal.ru

Код: Выделить всё

var c0,c1,c2 : byte;
   ch, s, i: integer;
BEGIN
   for i:=100 to 999 do
      begin
      ch:=i;
      c0:= ch mod 10; ch:= ch div 10;
      c1:= ch mod 10;
      c2:= ch div 10;
      s:=c0+c1+c2;
      if sqr(i)=s*s*s then writeln (i);
      end   
END.

Код: Выделить всё

var c0,c1,c2 : byte;
   ch, s, i: integer;
BEGIN
   for i:=100 to 999 do
      begin
      ch:=i;
      c0:= ch div 100; ch:= ch - c0*100; //сотни
      c1:= ch div 10; //десятки
      c2:= ch mod 10; //единицы
      s:=c0+c1+c2;
      if sqr(i)=s*s*s then writeln (i);
      end   
END.

Код: Выделить всё

var
  n, s: longint;
begin
  for n := round(sqrt(27*27*27)) downto 100 do begin
    s := n div 100 + (n div 10) mod 10 + n mod 10;
    if sqr(n) = sqr(s) * s then writeln(n);
  end;
end.


Лекс Айрин писал(а):после end ";"

svk12 писал(а):Может быть, так?

bormant писал(а):Таких чисел действительно нет.

rotkart писал(а):Смущает, что эта задача из сборника для подготовки к ЕГЭ - чему она учит?

rotkart писал(а):Это прям обязательно? Вроде после последнего оператора перед финальным end-ом можно не ставить точку с запятой?

Лекс Айрин писал(а):К тому же за подобное могут и оценку снизить.

Лекс Айрин писал(а):А потом придется дописывать еще пару строк и тогда это вылезет. Поэтому лучше не привыкать к подобным умолчаниям.

Little_Roo писал(а):И как эксперт ЕГЭ (не плюйте в мордочку скажу - сборники подготовки к ЕГЭ, как правило, макулатура, изданная идиотами для идиотов

Лекс Айрин писал(а):rotkart, очень хороша, имхо, книга Ч. Уэзерелла "Этюды для программистов".

Предполагается, что новичок, берущийся за этюд, уже написал несколько программ и знает сравнительно хорошо хотя бы один язык

Little_Roo писал(а):

Лекс Айрин писал(а):К тому же за подобное могут и оценку снизить.

Нет, это считается корректным - баллы не снижаются...
И, кстати, открою стра-а-а-а-а-шную тайну Орфографический кретинизм (другими словами не обозначтиь), если он НЕ искажает сути решения - НЕ учитывается
Это, к примеру:
.......
reade(X);
y =: x + 1;;
vrite(x)
writ(y};
конец.
.........
Обязаны, по критериям оценивания, засчитать по-полной

Программа, возможно, неверно работает при некоторых входных данных, но по
приведенному тексту решения ясно, что экзаменуемый понимает, из каких
этапов должно состоять решение задачи.
Программа, возможно, неверно обрабатывает некоторые входные данные,
например, отсутствует или предложен некорректный алгоритм обработки
строчных или прописных букв, или они подсчитываются по отдельности, или
программа содержит ошибку в алгоритме поиска максимума. Возможно,
выводит только искомую букву и не выводит количество букв. Допускается
наличие не более семи синтаксических ошибок.

rotkart писал(а):В Вашем примере синтаксических ошибок я насчитал восемь, так что 0 баллов.