4 помогите решить не понимаю эту тему с программированием
Answers & Comments
marsmag
{на третье задание решение} var a,i,a1,a2,a3,a4:integer; begin readln(a); a1:=a div 1000; a2:=(a div 100)mod 10; a3:=(a div 10)mod 10; a4:=a mod 10; if a2-a3>4 then writeln(a1+a2+a3+a4) else writeln(a1*a2*a3*a4); end. {на 4} var a,i,a1,a2,a3,a4, b,c:integer; begin readln(a); a1:=a div 1000; a2:=(a div 100)mod 10; a3:=(a div 10)mod 10; a4:=a mod 10; b:=a1*a2*a3*a4; c:=a1+a2+a3+a4; writeln(b,c); if (b div c>=5)then writeln('произведение цифр больше суммы цифр более,чем в пять раз') else writeln('произведение цифр деленное на сумму цифр меньше 5'); end. {на 5 } var a,a1,a2,a3,a4,a5,a6:integer; begin readln(a); a1:=a div 100000; a2:=(a div 10000)mod 10; a3:=(a div 1000)mod 10; a4:=(a div 100)mod 10; a5:=(a div 10)mod 10; a6:=a mod 10; if a1+a2+a3=a4+a5+a6 then writeln('счастливый') else writeln('нет'); end. {на 6} var a,a1,a2,a3,a4:integer; begin readln(a); a1:=a div 1000; a2:=(a div 100)mod 10; a3:=(a div 10)mod 10; a4:=a mod 10; if ((a1+a2+a3+a4) mod 7=0)and((a1 mod 7=0)or(a2 mod 7=0)or(a3 mod 7=0)or (a4 mod 7=0)) then writeln('условие выполняется') else writeln('условие не выполняется'); end.
1 votes Thanks 1
JustPeopleVAR s: String; sum,pr,i: LongInt; BEGIN Read(s); sum := 0; pr := 1; for i := 1 to Length(s) do begin sum := sum + Ord(s[i]) - 48; pr := pr * (Ord(s[i]) - 48); end; Writeln('Сумма цифр = ', sum); Writeln('Произведение цифр = ', pr); if (pr > sum * 5) then Write('Произведение цифр больше суммы цифр более чем в 5 раз') else Write('Произведение цифр не больше суммы цифр увеличенной в 5 раз') END.
Answers & Comments
var a,i,a1,a2,a3,a4:integer;
begin
readln(a);
a1:=a div 1000;
a2:=(a div 100)mod 10;
a3:=(a div 10)mod 10;
a4:=a mod 10;
if a2-a3>4 then writeln(a1+a2+a3+a4)
else writeln(a1*a2*a3*a4);
end.
{на 4}
var a,i,a1,a2,a3,a4,
b,c:integer;
begin
readln(a);
a1:=a div 1000;
a2:=(a div 100)mod 10;
a3:=(a div 10)mod 10;
a4:=a mod 10;
b:=a1*a2*a3*a4;
c:=a1+a2+a3+a4;
writeln(b,c);
if (b div c>=5)then writeln('произведение цифр больше суммы цифр более,чем в пять раз')
else writeln('произведение цифр деленное на сумму цифр меньше 5');
end.
{на 5 }
var a,a1,a2,a3,a4,a5,a6:integer;
begin
readln(a);
a1:=a div 100000;
a2:=(a div 10000)mod 10;
a3:=(a div 1000)mod 10;
a4:=(a div 100)mod 10;
a5:=(a div 10)mod 10;
a6:=a mod 10;
if a1+a2+a3=a4+a5+a6 then writeln('счастливый')
else writeln('нет');
end.
{на 6}
var a,a1,a2,a3,a4:integer;
begin
readln(a);
a1:=a div 1000;
a2:=(a div 100)mod 10;
a3:=(a div 10)mod 10;
a4:=a mod 10;
if ((a1+a2+a3+a4) mod 7=0)and((a1 mod 7=0)or(a2 mod 7=0)or(a3 mod 7=0)or (a4 mod 7=0)) then writeln('условие выполняется')
else writeln('условие не выполняется');
end.
s: String;
sum,pr,i: LongInt;
BEGIN
Read(s);
sum := 0; pr := 1;
for i := 1 to Length(s) do begin
sum := sum + Ord(s[i]) - 48;
pr := pr * (Ord(s[i]) - 48); end;
Writeln('Сумма цифр = ', sum);
Writeln('Произведение цифр = ', pr);
if (pr > sum * 5) then Write('Произведение цифр больше суммы цифр более чем в 5 раз')
else Write('Произведение цифр не больше суммы цифр увеличенной в 5 раз')
END.