Семь гномов собрали вместе 28 грибов. причём все они собрали разное количество грибов и ни у кого не оказалось пустой корзинки. сколько грибов собрал каждый гном?

1- 1 2 - 2 3 - 3 4 - 4 5 - 5 6 - 6 7 - 7 в итоге равно 28

Могу предложить такой вариант - в цикле repeat число вводится как строка и посимвольно проверяется. если введено неправильно - возвращает на ввод, если правильно - преобразует строку в число для дальнейшей работы. var   a,err: integer;   s: string;   i: byte;   error: boolean; begin   repeat   error: =true;   writeln ('введите число');   readln (s);   for i: =1 to length(s) do begin     if (ord(s[i])< 48) or (ord(s[i])> 57)       then begin error: =false; writeln ('введено не число'); break; end   end;   until error=true;   val(s,a,err);   writeln ('введено число ',a); end. пример: введите число 12o введено не число введите число 120 введено число 120

́ческая моде́ль  —    представлениереальности[1], один из вариантов  модели, как  системы, исследование которой позволяет получать  информацию  о некоторой другой системе. процесс построения и изучения моделей называется  моделированием. все  естественные  и  общественныенауки, использующие аппарат, по сути, занимаются моделированием: заменяют  объект исследования  его   моделью  и затем изучают последнюю. связь модели с  реальностьюосуществляется с цепочки  гипотез,  идеализаций  и . с методов описывается, как правило, идеальный объект, построенный на этапе содержательного моделирования[⇨].