print('''
Простой калькулятор имеет 4 действия и проводит их с двумя числами:
Сложение: +
Умножение: *
Деление: /
Вычитание: -
''')
do = input("Введите действие, которое хотите выполнить: ")
print("Чтобы выйти введите число 0")
while do != "0":
if do == "+":
a,b = int(input("Введите значение первого числа: ")),int(input("Введите значение второго числа: "))
print("Сумма чисел равна:",a+b)
do = input("Если хотите выйти в главное меню введите 0, в ином случае введите знак (+-*/): ")
elif do == "*":
a, b = int(input("Введите значение первого числа: ")), int(input("Введите значение второго числа: "))
print("Произведение чисел равно:", a * b)
do = input("Если хотите выйти в главное меню введите 0, в ином случае введите знак (+-*/): ")
elif do == "-":
a, b = int(input("Введите значение первого числа: ")), int(input("Введите значение второго числа: "))
print("Разность чисел равна:", a - b)
do = input("Если хотите выйти в главное меню введите 0, в ином случае введите знак (+-*/): ")
elif do == "+":
a, b = int(input("Введите значение первого числа: ")), int(input("Введите значение второго числа: "))
print("Частное чисел равн0:", a / b)
do = input("Если хотите выйти в главное меню введите 0, в ином случае введите знак (+-*/): ")
print("Программа завершена!")
Программа попроще:
print('''
Простой калькулятор умеет лишь складывать
Чтобы произвести сложение двух чисел введите +
''')
do = input()
if do == "+":
a = int(input("Чему равно первое число? "))
b = int(input("Чему равно второе число? "))
print("Их сумма:", a + b)
else:
print("Ой, Вы ввели что-то неверно, попробуйте еще раз!")
do = input()
if do == "+":
a = int(input("Чему равно первое число? "))
b = int(input("Чему равно второе число? "))
print("Их сумма:", a + b)
else:
print("Я калькулятор! Я не умею ничего кроме сложения! Пока :( ")
Program n1;
var k,n,i: longint;
co: byte;
function simply(a: longint ):boolean;
var i: longint;
begin
simply:=true;
for i:=2 to trunc(sqrt(a)) do begin if a mod i=0 then begin
simply:=false;
break
end
end
end;
function cr(a: longint): boolean;
var n: longint;
begin
n:=a;
cr:=false;
repeat
n:=n div 10;
until n mod 10 =n;
if n=(a mod 10) then
begin
cr:=true;
end;
end;
begin
readln(k,n);
for i:=k to n do if simply(i) then begin if (i=2) or (i=3) or (i=5) or (i=7) or cr(i) then
begin
write(i,' ');
co:=1;
end
end;
if co=0 then write(0);
end.
Объяснение: