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

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.

Для начала все числа из 2-чной системы переведем а 16-чную. для этого числа справа налево делим на разряды, в каждом разряде 4 цифры и по таблице систем счисления находим  нужные числа в 2-чной системе и переводим в 16-чную. 10001011=8в 10111000=в8 10011011=9в 10110100=в4 (второй разряд получился 0100 - первый 0 нужно убрать. если при делении на разряды не хватает цифр, то слева  дописываются 0, чтоб в разряде было 4 цифры). теперь полученные числа сравниваем с 9а 9а> 8b 9а< b8 9а< 9b 9а< b4 вроде как-то так.

Var     i,j,im,max,s: integer;     a: array[1..7,1..8]of integer; begin for i: =1 to 7 do   begin   for j: =1 to 8 do     begin     a[i,j]: =random(-10,10);     write(a[i,j]: 4);     if a[i,j]> 0 then s: =s+a[i,j];     if (j=1) and (a[i,j]> max) then         begin         max: =a[i,j];         im: =i;         end;     end;   writeln('   s=',s);   s: =0;   end; writeln('a(',im,',1)=',max); end.