найти частное произведений четных и не четных цифр четырехзначного числа n
10-11 класс
|
Есть книжка такая, "Песни о Паскале". Глава 47.
Нужно разложите число на цифры и вычислить соответствующие произведения,
flag: false; m1: = 1; m2: = 1;
while N <> 0 do begin
if flag then m1:= m1*(N mod 10) else m2:= m2*(N mod 10);
flag:= not flag;
N:= N div 10;
end;
if m1<>0 then Writeln(m2 div m1) else Writeln('Бесконечность');
var
i,n,x:integer;
a:array[1..4]of integer;
begin
readln(n);
for i:=4 downto 1 do
begin
x:=n mod 10;
a[i]:=x;
n:=(n-x) div 10;
end;
writeln('Произведение четных: ',a[2]*a[4]);
writeln('Произведение нечетных: ',a[1]*a[3]);
end.
Если можно использовать строковые функции, то будет проще:
var
i:integer;
n:string;
a:array[1..4]of integer;
begin
readln(n);
for i:=1 to 4 do a[i]:=StrToInt(n[i]);
writeln('Произведение четных: ',a[2]*a[4]);
writeln('Произведение нечетных: ',a[1]*a[3]);
end.
Другие вопросы из категории
требуется 3750 Килобайт. Разрешение изображения составляет (?) точек на дюйм (1 дюйм = 2,5 см)
выдать слова, имеющие длину большую, чем длина первого слова строки.
Читайте также
написать программу вычисляющую произведение второй и четвертой цифр четырехзначного числа.
понять где
var
t,s,d,e,i: integer;
begin
for i:= 1000 to 9999 do
t:=i div 1000;
s:=(i div 100)mod 10 ;
d:=(i div 10) mod 10;
e:=i mod 10;
if ((t mod 2=0) or (s mod 2 =0) or (d mod 2 =0) or (e mod 2=0)) then writeln ('TRUE') else writeln ('FALSE');
end.
Найти произведение двух средних цифр четырехзначного числа.
последней цифрой при произведении на 3 будет цифра 2)
произведение цифр этого числа.
Необходимо решение на языке Паскаль. Заранее спасибо!