Составить программу, которая проверяет является ли билет счастливым. в билете 6 цифр. 8 !

279

293

Посмотреть ответы 3

Ответы на вопрос:

F1NN1

Информатика

4,4(54 оценок)

//pascalabc.net //версия 3.3, сборка 1627 begin var a: =readstring(); write(a.skiplast(3).select(x-> x.()=a.skip(3).select(x-> x.; end.

Yana7112

Информатика

4,6(91 оценок)

Var a,sum1,sum2,i: longint; begin readln(a); for i: = 1 to 3 do begin sum1 : = sum1 + a mod 10; a: = a div 10; end; for i: = 1 to 3 do begin sum2 : = sum2 + a mod 10; a: = a div 10; end; if (sum1 = sum2) then writeln('yes') else writeln('no'); end. пример: 123321 yes