Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,s,i: integer;
begin
readln(a,b);
if a> b then
for i: =b to a do
s: =s+i
else
for i: =a to b do
s: =s+i;
writeln(s);
end.
2 единицы т.к 1025=10000000001 в двоичной системе счисления
max: =a[1];
for i: =2 to 10 do
if a[i]> max then
max: =a[i];
c: =i;
end;
min: =a[1];
if a[i]< min then
min: = a[i];
d: =i;
a[c]: =x;
a[c]: =a[d];
a[d]: =x;
это кусочек программы в паскале для нахождения максимального элемента на скоко я помню
Популярные вопросы