найти частное творений четных и не четных цифр четырехзначного числа n
Отыскать частное произведений четных и не четных цифр четырехзначного числа n
Задать свой вопрос2 ответа
Юрок Папинский
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.
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.
Максим
Есть книжка такая, "Песни о Паскале". Глава 47.
Необходимо разложите число на цифры и вычислить подходящие творения,
flag: false; m1: = 1; m2: = 1;
while N lt;gt; 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 m1lt;gt;0 then Writeln(m2 div m1) else Writeln('Бесконечность');
Видела теснее таковой вопрос где-то года три вспять.
Необходимо разложите число на цифры и вычислить подходящие творения,
flag: false; m1: = 1; m2: = 1;
while N lt;gt; 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 m1lt;gt;0 then Writeln(m2 div m1) else Writeln('Бесконечность');
Видела теснее таковой вопрос где-то года три вспять.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов