дано четырёхзначное число определить а)равна ли сумма двух его первых цифр сумме двух последних его цифр бкратна ли трём сумма его цифр в)кратно ли четырём произведение его цифр
Ответы
Ответ дал:
0
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var d:array[1..4] of integer;
for var i:=1 to 4 do begin
d[5-i]:=n mod 10;
n:=n div 10
end;
if d[1]+d[2]=d[3]+d[4] then
Writeln('Сумма двух первых цифр равна сумме двух последних');
if (d[1]+d[2]+d[3]+d[4]) mod 3 = 0 then
Writeln('сумма цифр кратна трем');
if (d[1]*d[2]*d[3]*d[4]) mod 4 = 0 then
Writeln('произведение цифр кратно четырем');
end.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var d:array[1..4] of integer;
for var i:=1 to 4 do begin
d[5-i]:=n mod 10;
n:=n div 10
end;
if d[1]+d[2]=d[3]+d[4] then
Writeln('Сумма двух первых цифр равна сумме двух последних');
if (d[1]+d[2]+d[3]+d[4]) mod 3 = 0 then
Writeln('сумма цифр кратна трем');
if (d[1]*d[2]*d[3]*d[4]) mod 4 = 0 then
Writeln('произведение цифр кратно четырем');
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад