Объяснение:
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)
