Мультфильм про самых лучших мам или учительниц:*
Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
Хм,дорожный знак
Самое подходящее "символ"
Из перечисленных
Ответ:
алг
нач
цел а,б
б:=0
ввод а
нц пока а > 0
если mod (а,10) = div (mod (а,100),10) то
б:=б+1
вывод "Да"
выход
всё
а:=div (а,10)
кц
если б=0 то вывод "Нет" все
кон
Var a,y:real;
begin
readln(a);
if (a<=0)then y:=a+5 else
if (a>0) and (a<1)then y:=1/a else y:=sqr(a);
print(y);
end.