Var
x,y: integer;
begin
read(x);
y := x * x + 1;
write(y);
end.
101110=1*2^5 + 1*2^3 + 1*2^2 + 1*2= 32+8+4+2=46
621=6*8^2 + 2*8 + 1= 384+16+1=401
64C= 6*16^2 + 4*16 +12=1536+64+12=1612
1)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
if pos('а', s) <> 0 then writeln('В строке есть буква "а"')
else writeln('В строке нет буквы "а"');
end.
2)
var
s: string;
i, a: byte;
begin
a := 0;
writeln('Введите строку: ');
readln(s);
for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.
3)
var
s: string;
begin
writeln('Введите строку: ');
readln(s);
while pos('и', s) <> 0 do delete(s, pos('и', s), 1);
writeln('Строка после удаления букв(ы) "и": ', s);
end.
<span>1. uses</span> crt;
<span>2. var</span> i<span>:</span><span>byte</span>; {раздел обявления переменных}
<span>begin</span><span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>writeln</span><span>(</span><span>'|Число|Корень|'</span><span>)</span>;
<span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span><span>20</span><span>do</span> <span>//цикл с параметром</span><span>writeln</span><span>(</span><span>'|'</span><span>,</span>i<span>:</span><span>4</span><span>,</span><span>' |'</span><span>,</span><span>sqrt</span><span>(</span>i<span>)</span><span>:</span><span>6</span><span>:</span><span>2</span><span>,</span><span>'|'</span><span>)</span>; <span>//вывод</span><span>writeln</span><span>(</span><span>'--------------'</span><span>)</span>;
<span>end</span>.