Ну вот тебе внутренняя часть проги:k:=0;
while k<=n do beginif x mod 2=0 then a:=a+1 else s:=s+1k:=k+1end;writeln('Кол-во четных= ', a, ' Кол-во нечетных = ',s)
var a:array[1..10,1..10]of integer;
i,j,k,s:integer;
begin
for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(9)+1;
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end;
s:=1;
for i:=2 to 10 do begin k:=a[i,1];
for j:=2 to 10 do begin
if i mod 2 = 0 then if a[i,j]>k then k:=a[i,j];
if (j=10) and (i mod 2=0) then s:=s*k;
end;
end;
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) во вложении.
Program n1;
Uses CRT;
Var s: string; a: char; i,k: integer;
begin
Writeln('Vvedite stroku');
readln(s);
Writeln('Vvedite simvol');
readln(a);
For i:=1 to length(s) do
if s[i]=a then k:=k+1;
Writeln('Simvol ',a,' vstrechaetsa v stroke ',k,' raz');
readln
<span>end.</span>
Анализируем алгоритм:
1) В переменной А производится подсчёт количества цифр числа, следовательно, в искомом числе будет 3 цифры.
2) В переменной В считается произведение всех цифр числа, в искомом числе оно будет равно 14.
Итак, 3 цифры, произведение которых равно 14.
(1*7*2=14)
Нам нужно найти наименьшее число. В самый старший разряд можем поставить число 1, в следующий разряд ставим 2 и в самый младший - 7.
Ответ: 127