1) Сложить два числа в шестнадцатеричной системе счисления , выполнить проверку 67+76= 2) Перевод или математические операции в нестандартных системах счисления ХVI
var sum, i: integer; begin sum := 0; for i := 1 to 100 do sum := sum + i; writeln('Сумма всех чисел от 1 до 100: ', sum); end.
№2
var p, i: integer; begin p := 1; for i := 1 to 10 do p := p * i; writeln('Произведение всех чисел от 1 до 10: ', p); end.
№3
У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"
var A, i, k, max: integer; begin i := 3; max := 100; for k := 1 to max do begin A := A + i;write( A, ' '); end; end.
№4
var sum, x: real; a: array[1..10] of real; i: integer; begin sum := 0; for i := 1 to 10 do begin write('Введите ', i, ' число: '); readln(a[i]); sum := sum + a[i]; end;
var a:array [1..5] of integer;
i,max,k,j: integer;
begin
Write ('Введите элементы массива: ');
for i:= 1 to 5 do
read (a[i]);
max:=a[1];
for i:= 1 to 5 do
if a[i]>max then max:=a[i];
Writeln ('Максимальный элемент: ',max);
Writeln ('Элементы с непарными индексами: ');
for i:= 1 to 5 do
if i mod 2 <>0 then write (a[i], ' ');
for i:= 1 to 4 do
for j:= i+1 to 5 do
if a[i]<a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
writeln();
writeln ('Массив, упорядоченный в порядке убывания: ');
for i:= 1 to 5 do
write(a[i], ' ');
end.
Объяснение: