Var
a: array[1..10, 1..10] of integer;
i, j, k: integer;
begin
k := 1;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
if(j >= i) then begin
a[i, j] := k;
k += 1;
end
else a[i, j] := 0;
write(a[i, j]:3);
end;
k := 1;
writeln();
end;
<span>end.</span>
Ответ:
Объяснение:
program chet;
var S: integer;
St: string;
begin
S:=0;
WriteLn ('Введите строку, содержащую цифры :');
ReadLn(St);
for var i:=1 to length(St) do
if ( St[i]='0') or ( St[i]='2') or ( St[i]='4') or
( St[i]='6') or ( St[i]='8') then S:=S+1;
WriteLn( 'Четных цифр - ' , S);
ReadLn;
end.
Просто нарисовать 8 разноцветных треугольников и обвести их, но все вместе