var i,a,b,c,k: integer;
begin
for i:=1 to 5 do
begin
a:=random(8)+1;
b:=random(8)+1;
write (a,' * ',b,' = ');
readln (c);
if c = a*b then k:=k+1
end;
writeln ('Вы правильно ответили на ',k,' примера')
end.
<em>Program Zn;</em>
<em>var n,k,sum:integer;</em>
<em>Begin</em>
<em>Writeln('Введите натуральное число');</em>
<em>Readln(n);</em>
<em>While n<>0 do begin</em>
<em>k:= n mod 10;</em>
<em>if k mod 2 = 0 then sum:=sum+k;</em>
<em>n:= n div 10;</em>
<em>end;</em>
<em>writeln('Сумма четных чисел = ', sum);</em>
<em>end.</em>
<em>(Проверено и откомпелировано на Pascal.NET)</em>
Наверное тег < р> текст </р>. Больше я нечево тут не заметил
А тогда свойства justify будет виравнивать текс по всей ширине
Я думаю что нет потому что не все они работают и имеют дело в текстами по этому ответ нет надеюсь что помогла