Program z1;
var s:string;
var i,n,f:integer;
var ch:char;
begin
writeln('Введите строку');
readln(s);
f:=0;
n:=length(s);
ch:=s[n];
for i:=1 to n do
if(s[i]=ch) then
f:=f+1;
if(f<>0) then
writeln('yes')
else writeln('no');
end.
Var
n,i,chet:integer;
s:string;
begin
readln(n);
str(n,s); // Функция str преобразует число n в строку s
for i:=1 to length(s) do begin
if (ord(s[i])-48) <= 0 then halt; // Процедура halt завершает программу если введенное число <=0
if (ord(s[i])-48) mod 2 = 0 then chet:=chet+1;
end;
writeln('Кол-во цифр - ',length(s),' Кол-во четных - ',chet);
<span>end.</span>
Var
x, a, b: Integer; y: Real;
begin
//writeln(x,a,b);
ReadLn(x);
<span>ReadLn(a);
</span><span>ReadLn(b);
y:= tg*x*</span><span>exp(ln(a)*(b+1))*ln(a+b);
</span>WriteLn('Otvet y = 'y);
Холодный утюг
Разбитую вазу
Чистое бильё
Ракета без топлива
Пустого кувшина
1) игра котиков
2) ученик делает уроки
3) футбол (играют две команды)