1) var a,b,s:integer; begin Readln(a,b); s:=0; if (a<0)and(b<0) then begin a:=-a; b:=-b; end; if a<0 then for var i:=1 to b do s+=a else for var i:=1 to a do s+=b; WriteLn(s); end.
Пример: -7 15 -105
2) var n,s:integer; begin Readln(n); s:=0; for var i:=1 to n do s+=i; WriteLn(s); end.
Пример: 100 5050
3) var a,b,s:integer; begin Readln(a,b); s:=0; for var i:=a to b do s:=s+i*i; writeLn(s); end.
Пример: 2 5 54
4) var a,b,n:integer; begin Readln(a,b,n); for var i:=1 to n do write(random(b-a+1)+a,' '); end.
1 - моделью 2 - меньше информации 3 - глобус, макет здания, муляж яблока, манекен 4 - рисунок, фотография 5 - знаковой 6 - смешанной 7 - автомобиль — техническое описание автомобиля, город — путеводитель по городу 8 - существенные признаки объекта-оригинала 9 - разные модели объекта 10 - физическая карта, график зависимости расстояния от времени, схема узора для вязания крючком, схема метро 11 - словесное описание, формула 12 - знаковой 13 - смешанной 14 - болт — чертеж болта, мелодия — нотная запись мелодии
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
if (a<0)and(b<0) then
begin a:=-a; b:=-b; end;
if a<0 then for var i:=1 to b do s+=a
else for var i:=1 to a do s+=b;
WriteLn(s);
end.
Пример:
-7 15
-105
2)
var n,s:integer;
begin
Readln(n);
s:=0;
for var i:=1 to n do s+=i;
WriteLn(s);
end.
Пример:
100
5050
3)
var a,b,s:integer;
begin
Readln(a,b);
s:=0;
for var i:=a to b do s:=s+i*i;
writeLn(s);
end.
Пример:
2 5
54
4)
var a,b,n:integer;
begin
Readln(a,b,n);
for var i:=1 to n do write(random(b-a+1)+a,' ');
end.
Пример:
10 20 5
11 12 14 14 18