то что подчеркнуто на минимальный возвраст группы заменить.
? "Введите возвраст человека"
INPUT A
IF A><span>пенсионер</span> THEN 1 ELSE 2
1 ? "группа пенсионеров" : GOTO 10
2 IF A><span>работник</span> THEN 3 ELSE 4
3 ? "группа работников" : GOTO 10
4 IF A><span>ученик</span> THEN 5 ELSE 6
5 ? "группа учеников" : GOTO 10
6 ? "группа дошкольников"
10 END
Program Amstrong;
var
a,b: integer;
i,j,k,
ci,
si,mi,
errkod: integer;
sti: string;
flag: Boolean;
begin
Readln(a,b);
flag:=false;
for i:=a to b do
begin
str(i, sti);
si:=0;
for j:=1 to Length(sti) do
begin
val(sti[j],mi,errkod);
ci:=1;
for k:=1 to Length(sti) do
ci:=ci*mi;
si:=si+ci;
end;
if si=i then
begin
write(si,' ');
flag:=true
end;
end;
if not flag then write(-1);
Readln;
end.
Материальные модели-это предметные,которые воспроизводят геометрические и физические свойства предметов(глобус,анатомический муляж,макеты зданий).Абстрактные-это образные,которые несут зрительную информацию(рисунки,фотографии) или информационные(плакаты учебные) или знаковые(компьютерные программы,формулы (по физике или другие)историчечкие или географическин атласы)