• Составить программу для подсчета количества "счастливых" шестизначных билетов, при исполнении которой работает не более 50000 арифметических команд.
    В чем ошибка?
    program upr4;
    var n,m,i:longint;
    a,b,c,e,f,k: integer;
    begin
    m:=0;
    for i:= 100000 to 999999 do begin
    k:= n mod 10;
    f:= (n div 10) mod 10;
    e:= (n div 100) mod 10;
    c:= (n div 1000) mod 10;
    b:= (n div 10000) mod 10;
    a:= (n div 100000) mod 10;
    if k+f+e=a+b+c
    then m:=m+1
    else m:=m;end;
    writeln (m);
    end.

Ответы 1

  • для начала - откуда взялась переменная n?
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years