Question

Счастливым билетом называют такой билет с шестизначным номером, где сумма первых трех цифр равна сумме последних трех. Т. к. билет с номером 385916 - счастливый. 3+8+5=9+1+6. От меня требуется написать программу и блок схему, которая проверяет счастливость билета? Пожалуйста, друзья, помогите. Надо сегодня сделать эту заданию.

Answer 1

Program A1;
var
O:array[1..6] of integer;
i:integer;
begin
writeln('Vvedite chisla');
for i:=1 to 6 do begin
readln(o[i]);
end;
if o[1]+o[2]+o[3]=o[4]+o[5]+o[6] then writeln('schastliviy') else writeln('neschastliviy');
end.