Определить, является ли трамвайный билет счастливым? Счастливым будем считать такое число из шести цифр, в котором сумма левых трех цифр равна сумме правых трех цифр. паскаль. Created by 9komrad9. informatika-ru

Определить, является ли трамвайный билет счастливым? Счастливым будем считать та...

Verified answer

Var n,n1,n2,s1,s2:integer;
begin
write('n = '); readln(n);
n1:=n div 1000;
n2:=n mod 1000;
s1:=n1 div 100+(n1 div 10 mod 10)+n1 mod 10;
s2:=n2 div 100+(n2 div 10 mod 10)+n2 mod 10;
if s1=s2 then writeln('Билет счастливый')
else writeln('Билет не счастливый');
end.

Пример 1:
n = 156309
Билет счастливый

Пример 2:
n = 762453
Билет не счастливый

9komrad9 спасибо, но мне удалось сделать без див и мод

petyaGavrikov В условии задачи нет требования не использовать div и mod.

9komrad9 я вкурсе. просто не понимаю ка ими пользоваться. прсто констатировал факт, что сумел

BrightOne Program lucky;
var
n,l,r: integer;
begin
writeln('введите номер билета');
readln(n);
l := (n div 100000) + (n mod 100000 div 10000) + (n mod 100000 mod 10000 div 1000);
r := (n mod 100000 mod 10000 mod 1000 div 100) +(n mod 100000 mod 10000 mod 1000 mod 100 div 10) + (n mod 100000 mod 10000 mod 1000 mod 100 mod 10);
if l == r then
writeln('ваш билет счастливый')
else
writeln('ваш билет не счастливый');
end.

9komrad9 спасибо, но мне удалось сделать без див и мод

Answers & Comments

Verified answer

dano celoe chislo n gt 0 esli n nechetnoe to vyvesti proizvedenie 13

opredelit sredi shestiznachnyh chisel palindromy palindromom nazyvaetsya chislo ko

vychislit 20 30 ispolzuya paskal zhelatelno pokazyvaya formulu ato podzabyl

odnokletochnaya ameba kazhdye 3 chasa delitsya na 2 kletki opredelit skolko kleto69cf1e2cbe0a2433f42f5489c1620a79 82647

рекомендуемые вопросы

Helpful Links

Helpful Social