Uses crt;
var
x,y,a,b:integer;
begin
clrscr;
while true do begin
randomize;
x:=random(10);
y:=random(10);
write('Введите первое число=');read(a);
write('Введите второе число=');read(b);
writeln(x,' ',y);
if ((a=x) and (b=y)) or ((a=y) and (b=x)) then begin
writeln('Вы угадали');
end
else begin
writeln('Вы не угадали');
end;
end;
end.
1) program ab;vars:string;i,k:integer;begins:='мама';for I:=1 to length(s) do begin k:=pos('м',s); if k<> 0 then begin delete(s,k,1); insert('п',s,k);end; end; writeln(s); end.
2 )program ab;
vars:string;i,k,n,j:integer;beginreadln(s);n:=0;k:= length(s) ;for i:= 1 to (k div 2) do
if s[i]<>s[k-i+1] thenn:=1; if n=0 then Writeln('Перевёртыш') else Writeln('Не первёртыш'); readln(j); end.
Компьютера)))))))))))))эээх как же легко