A)97 43 98
b)70 79 82 32 73 61 32 84 79 32 78
c)32 80 82 73 78 84 32 65 83
d)78 69 88 84 32 73
e)80 65 85 83 69
Вроде всё правильно
b<span>:=a</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> 8 <span>do
</span> b<span>:=</span>a<span>+</span><span>(</span>a<span>+</span><span>d</span><span>)</span>;
<span>writeln</span><span>(</span>b<span>)</span>;
<span>program mm;
var a,b,i,summ:integer;
begin
Writeln ('Введите А и В');
readln(a,b);
for i:=a to b do
if i mod 2 </span><span><> 0</span><span> then
summ:=summ+i;
Writeln('Сумма = ',summ);
end. </span>
Два жука собирают росу с листка