![Хоть с чем-то 1. для следующего фрагмента программы: program prog; uses crt; const a: array[1..8] of](/tpl/images/0712/2103/daaf5.jpg)
"...напечатает сначала 2, потом - 6" -- это значит a=2 и b=6?
про пятеричные записи ничего не понял... :) И ИМХО к чему такие сложности? И для чего нам комп и программа? Я подправил исходную прогу чтобы она выдавала все числа подходящие по условию
var x,a,b: longint;
begin
for var i := 999 DownTo 100 do begin
a := 0;
b := 1;
x := i;
while x>0 do begin
if x mod 2 > 0 then a := a+1 else b := b+(x mod 5);
x := x div 5;
end;
if (a = 2) and (b = 6) then writeln('x = ', i, ' a = ', a, ' b = ',b);
end;
end.
прога проводит расчет для всх трехзначных чисел от 999 до 100
итого мы видим что максимальное подходящее число это 960
при необходимости прогу можно переделать чтобы она находила только максимальное число.
var n:integer;
begin
n:=301;
while n mod 19<>0 do n:=n+1;
writeln(n,' / 19 = ',n div 19);
end.
Пример:
304 / 19 = 16
2)
var n,c,k1,k2,s,k3:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0; s:=0; k3:=0;
while n > 0 do
begin
c:=n mod 10;
if c mod 2=0 then k1:=k1+1 else k2:=k2+1;
s:=s+c;
if c mod 3=0 then k3:=k3+1;
n:= n div 10;
end;
writeln('количество цифр числа = ',k1+k2);
writeln('их сумма = ',s);
writeln('количество четных цифр = ',k1);
writeln('количество нечетных цифр = ',k2);
writeln('количество цифр, кратных 3 = ',k3);
end.
Пример:
n = 2745194
количество цифр числа = 7
их сумма = 32
количество четных цифр = 3
количество нечетных цифр = 4
количество цифр, кратных 3 = 1