//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.
AMD Ryzen лучше
Объяснение:
Какие тебе нужны критерии я не знаю, зайди в dns в сравнения да посмотри