Объяснение:
program kalk;
var
a, b, c :integer;
begin
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
writeln('Cумма трех чисел равна',a+b+c);
writeln('Разность трех чисел равна',a-b-c);
writeln('Произведение трех чисел равно',a*b*c);
end.
Есть вариант поставить вместо:
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
поставить так:
writeln('Введите 3 числа: ');
readln(a, b, c);
#a)
print('Input n: ')
n = input()
if int(n) < 0:
print('Incorrect input')
else:
sum = 0
for i in range(int(n) + 1):
sum += i
print('Sum is ', sum)
##
#b)
print('Input n: ')
n = input()
if int(n) < 0:
print('Incorrect input')
else:
sum = 0
for i in range(int(n) + 1):
sum += i*i
print('Sum is ', sum)
##
#c)
print('Input n: ')
n = input()
if int(n) < 0:
print('Incorrect input')
else:
sum = 0
for i in range(0, int(n) + 1, 2):
sum += i
print('Sum is ', sum)
##
#d)
sum = 0
for i in range(10, 100, 1):
sum += i
print('Sum is ', sum)
Данная задача состоит из двух подзадач:
Определить цифры, из которых состоит число.
Отсортировать их в порядке возрастания.
Поскольку стоит вопрос о сортировке, то уместно цифры числа помещать массив. Цифры из заданного числа извлекаются путем последовательного нахождения остатка от деления на 10.
const N = 10;
var
arr: array[1..N] of byte;
m: longint;
i, j, k, b: byte;
begin
readln(m);
k := 0;
while m > 0 do begin
k := k + 1;
arr[k] := m mod 10;
m := m div 10;
end;
for i:=1 to k-1 do
for j:=1 to k-i do
if arr[j] > arr[j+1] then begin
b := arr[j];
arr[j] := arr[j+1];
arr[j+1] := b;
end;
for i:=1 to k do
write(arr[i],' ');
writeln;
end.
Объяснение: