Значок мой компютер вроди
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
var x,y:real;
begin
writeln('Введите значение x: ');
readln(x);
if x<0 then
begin
y:=x/2;
writeln('y = ',y);
end
else
begin
if x>=0 then
y:=sqrt(3+x);
writeln('y = ',y);
end;
end.
Я точно не помню как делать но там есть медведь лиса олень ежик белка
медведь на переднем плане в кустах с ним есть еще лиса и белка она на ветке сидит олень на заднем плане
я думаю действия 1 взять карандаш 2 найти на картинке зверья 3 раскрасить его