Var
s,k,n: Integer
BEGIN
Write('Введите первое число ');
Readln(n);
Write('Введите второе число ');
Readln(k);
s:=0;
s=n+k;
Writeln('Сумма Ваших двух чисел равна: ',s);
END
Это программа которые может посчитать сумму чисел которых вы сами сможете ввести(любые цифры и числа).
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу которая вычисляет сумму первых n натуральных чисел Очень
Var
s,k,n: Integer
BEGIN
Write('Введите первое число ');
Readln(n);
Write('Введите второе число ');
Readln(k);
s:=0;
s=n+k;
Writeln('Сумма Ваших двух чисел равна: ',s);
END
Это программа которые может посчитать сумму чисел которых вы сами сможете ввести(любые цифры и числа).