А) var a,sum,i:integer; begin sum:=0; for i:=100 to 500 do begin sum:=sum+i; end; writeln(sum); end.
б) var a,sum,i:integer; begin sum:=0; writeln('Введите число a'); readln(a); for i:=a to 500 do begin sum:=sum+i; end; writeln(sum); end.
в) var b,sum,i:integer; begin sum:=0; writeln('Введите число b'); readln(b); for i:=-10 to b do begin sum:=sum+i; end; writeln(sum); end.
г) var a,b,sum,i:integer; begin sum:=0; writeln('Введите число a'); readln(a); writeln('Введите число b'); readln(b); for i:=a to b do begin sum:=sum+i; end; writeln(sum); end.
1) Загадочных знаков там нету, они исписаны древнеегипетскими иероглифами. 2) Похожие на объекты, ими обозначаемые: круг с точкой, идущий человек, полукруг (лепёшка), изображение ротового отверстия. 3) Единовременно - не более 1000. 4) Наиболее очевидное предположение: отвлечение начертания от реального образа -> изменение и расширение лексики -> единственная возможность записи в этих условиях - использование иероглифов для обозначения первых звуков слов, обозначавшихся ими ранее; так записывались и имена. 5) Нет.
begin
sum:=0;
for i:=100 to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.
б) var a,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
for i:=a to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.
в) var b,sum,i:integer;
begin
sum:=0;
writeln('Введите число b');
readln(b);
for i:=-10 to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.
г) var a,b,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
for i:=a to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.
2) Похожие на объекты, ими обозначаемые: круг с точкой, идущий человек, полукруг (лепёшка), изображение ротового отверстия.
3) Единовременно - не более 1000.
4) Наиболее очевидное предположение: отвлечение начертания от реального образа -> изменение и расширение лексики -> единственная возможность записи в этих условиях - использование иероглифов для обозначения первых звуков слов, обозначавшихся ими ранее; так записывались и имена.
5) Нет.