//1 begin var ch:=readchar ('Введите символ: '); if ch in ['A'..'z', 'А'..'я'] then begin if upcase(ch)=ch then write ('Прописная ') else write ('Строчная '); if ch in ['A'..'z'] then write ('английская ') else write ('русская '); write ('буква'); end else if ch in ['0'..'9'] then write ('Цифра') else write ('Символ'); end.
//2 begin var x:=readreal ('Ведите координаты точки: '); var y:=readreal; if (x=0) and (y=0) then write ('Точка лежит на начале координат') else if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс') else if x>0 then if y>0 then write (1) else write (4) else if y>0 then write (2) else write (3); end.
Есть несколько удаления программы. 1) заходишь в МОЙ КОМПЮТЕР ищешь там папку, в которой эта программа и удаляешь эту папку полностью. 2)заходишь в МОЙ КОМПЮТЕР, находишь папку этой программы, там будет среди прочих файлов значёк (обычно похож на корзину для мусора) открываешь его, он тебя спросит: "Вы действительно хотите удалить такую-то программу?" нажимаешь "ОК". 3) если программа имеет вредоносный файл-вирус, то он может не давать удалить себя и выдавать ошибку при удалении. В таком случае стоит с антивирусника просканировать эту папку и удалить вирус, после этого можете удалять.
4.
s=int(input())
s1=s%10
s2=s//10%10
s3=s//100%10
print(s1+s2+s3)
5.
a=float(input())
b=float(input())
k=int(input())
n=-(-(a*b)//(10*0.8))
print(k*n)
Поставила float для того, чтобы можно было вводит не целые числа. Его можно заменить на int (как у k), тогда ввод будет только целочисленным.