Var n,i:Integer;
begin
i:=0;
repeat
Readln(n);
if (n mod 2=0) and (n<>0) then
Inc(i);
until n=0;
Writeln;
Writeln(i);
readln;
<span>end.</span>
<em>VAR </em>
<em> k: LongInt;</em>
<em>BEGIN </em>
<em> k := 50; </em>
<em> While (k < 1000) do begin </em>
<em> k := k + 50; Write(k, ' ');</em>
<em> End;</em>
<em>END.</em>
<em>VAR </em>
<em> sum, k: LongInt;</em>
<em>BEGIN </em>
<em> k := 101; sum := 0; </em>
<em> While (k < 150) do begin </em>
<em> sum := sum + k; </em>
<em> k := k + 2; </em>
<em> End; </em>
<em> Writeln(sum);</em>
<span><em>END.</em></span>
6)
Значение переменной а равно 6
7)
<span>Значение S
равно 73</span><span>
</span>
Во фразе 39 символов (включая пробелы и знаки препинания)
39*16 = 624 бит
var a:string;
begin
write('введите букву');
readln(a);
case a of
'L':write('L=2*pi*r'); // формула длинны окружности
'S':write('S=pi*r*r); // формула площади круга
'V':write('V'=pi*r*r*h); // формула объёма цилиндра
else write(''буква должна быть L, S или V);
end;
end.
если формула гдето неверная то сори