По введенному номеру билета определить, является ли билет счастливым.

[Alter]

Сообщение от Stilet

В Паскале??? )))

А почему бы нет?

function StrToInt(S :String):LongInt;
var I, Err :LongInt;
begin
 Val(S, I, Err);
 Result := I;
end;

function IntToStr(I :Longint):String;
Var S :String;
begin
 Str( I, S );
 Result := S;
end;

[veter_s_morya]

Мне кажется, что ближе всех к истине стоит

. . . . . 1 цифра . . . . . . . 2 цифра . . . . . . .3 цифра
if (N div 100 000+(N div 10 000 mod 10)+(N div 1000 mod 10))=
. . . . . 4 цифра . . . . . . . 5цифра . . . . 6 цифра
=((N div 100 mod 10)+(N div 10 mod 10)+(N mod 10)) нужно писать в одну строку
then writeln ('Yes!);

[Stilet]

Alter

Сам то пробовал свой код в паскале? )

[Alter]

Сообщение от Stilet

Сам то пробовал свой код в паскале? )

Конечно, только я тут забыл исправит Result на имена фун-й.
Смотрите и убедитесь, кто сомневается.

function StrToInt(S :String):LongInt;
var I, Err :Integer;
begin
 Val(S, I, Err);
 StrToInt:= I;
end;


function IntToStr(I :Longint):String;
Var S :String;
begin
 Str( I, S );
 IntToStr := S;
end;

begin
 WriteLn( StrToInt('100') );
 WriteLn( IntToStr(1005) );
readln;
end.

[Stilet]

Вот теперь все в ажуре.

[Карась]

Теперь можно использовать код который я привёл

[puporev]

Условие

Решить используя if и else!(т.к изучаю еще только азы).

Вы, мужики, вспомните с чего начинали изучать Паскаль. Что, сразу с написания Делфийских процедур и функций? Думаю нет. Так почему, когда человек ничего кроме if и else не проходил, вы начинаете козырять своими глубочайшими познаниями. Помогаете понять насколько он лох, что-ли? Так он не затем на форум обратился.

[Alar]

Сообщение от Карась

Тогда Мод и Див.....

Есть в паскале функция такая - http://delphibasics.ru/str.php, для перевода из числа в строку.

[Alter]

Сообщение от Alar

Есть в паскале функция такая - http://delphibasics.ru/str.php, для перевода из числа в строку.

Ну да, я и привёл аналог дельфийских функций под Pascal, с использованием Val и Str.

[RealSHELS]

Этот код точно работает в Borland Pascal
program one;
uses crt;
var
x1,x2,x3,y1,y2,y3,bil:longint;
begin
write('bil=');
readln(bil);
x1:=bil div 100000;
x2:=(bil mod 100000) div 10000;
x3:=((bil mod 100000) mod 10000) div 1000;
bil:=bil mod 1000;
y1:=bil div 100;
y2:=bil mod 100 div 10;
y3:=bil mod 100 mod 10;
if x1+x2+x3=y1+y2+y3 then writeln('You win') else writeln('You lost');
readln;
end.