К<span> </span>фактам<span> </span>относятся <em />знания об определённых явлениях
П о р д а ы э к е н г ф й ц у я ч
Алг Число
нач
цел n, k
вывод "Введите целое число", нс
ввод n
k:=0
нц пока n>0
если mod(n,10)=9 то
k:=k+1
все
n:=div(n,10)
кц
если k=2 то
вывод "Да."
иначе
вывод "Нет."
кон
Var
x: real;
begin
readln(x);
if (x <= 0) then
x := 0;
writeln('y = ', x);
end.
------
Или так:
var
x: real;
begin
readln(x);
writeln('y = ', x > 0 ? x : 0);
end.
Здесь полно предметов с углами