Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
s: string[3];
begin
readln(s);
if (s[1]=s[2]) or (s[3]=s[1]) or (s[3]=s[2]) then
writeln('есть') else
writeln('нет');
end;
пишу на паскале
program tralala;
var a,b,c,n: integer;
readln(n);
a: =n div 100;
b: =n div 10 mod 10;
c: =n mod 10;
if (a=b) or (a=c) or (b=c) then writeln (есть');
else write('нету');
end.
var s: string;
begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.
Популярные вопросы