var
a, b: longint;
begin
writeln('Введите первое число.');
readln(a);
writeln('Введите второе число.');
readln(b);
if b > a then
writeln(a, ' ', b)
else
writeln(b, ' ', a)
end.
потомучто график деления у 6 больше
Нужно использовать exel - вот я сделал
Пишите значение в B2
В вычислительной технике используются позиционные системы счисления, поскольку это связано с электронными схемами которые могу показывать всего 2 состояния 1 и 0. По этому для простоты кодировки и декодирования используют в основном двоичную систему счисления для передачи информации процессору и обратно.
Uses crt;
var i,a,b,c:integer;
begin
for i:=1 to 20 do
begin
if i<=7 then
begin
a:=a+i;
b:=b+sqr(i);
end;
if (i mod 2) = 0 then
c:=c+i;
end;
writeln('Сумма первых семи натуральных чисел: ',a);
writeln('Сумма первых семи натуральных чисел возведенных в квадрат: ',b);
writeln('Сумма четных чисел от 1 до 20: ',c);
<span>end.</span>