Var s:string; k,i:integer;
begin
write('Введите слово: '); readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='е' then k:=k+1;
writeln('В слове ',s,' буква а встречается ',k,' раз');
end.
===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Введите m и n:');
var a := MatrRandom(m, n, -99, 99);
a.Println;
Writeln;
foreach var j in Range(1, n - 1, 2) do
a.Col(j).Println
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>.
402-(10*41)=-2 ( при этом значении условие выполняться больше не будет)
значит, к значению n нужно 41 раз прибавить 3
41*3=123
Источник - ты. Кодирующее устройство - твой телефон. Канал связи - беспроводная телефонная линия. Декодирующее - телефон друга. Приемник - друг.