Задча. Delphi.

[NIKSTER]

Доброе время суток)
Нужно узнать делиться ли трицифровое число N на суму своих цифр. Задача 10 клас. Среда Delphi Lite 10. Сам бы сделал, но у меня что-то в "if" не получается и выдает ошибку. Если можно сделайте так, что бы я это понял) Спасибо)

[ByAlex]

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

Доброе время суток)
Нужно узнать делиться ли трицифровое число N на суму своих цифр. Задача 10 клас. Среда Delphi Lite 10. Сам бы сделал, но у меня что-то в "if" не получается и выдает ошибку. Если можно сделайте так, что бы я это понял) Спасибо)

Хитро! Вы свой код сюда закиньте, а мы посмотрим!

[NIKSTER]

program Proje123ct1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x,a,b,c,z:integer;
begin
writeln('vvedu x');
readln(x);
a:=x div 100;
b:=x div 10;
c:=x mod 10;
z:=a*100+b*10+c;
if (x div z) then writeln('dilutsa',z:10:2) else writeln('ne dilutsa');
writeln('a');

end.

[ByAlex]

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

if (x div z) then writeln('dilutsa',z:10:2) else writeln('ne dilutsa');

Ну конечно, x div z - это не булево значение, а число, поэтому у вас и ошибку показывает!

[NIKSTER]

Ну так, подскажите как правильно написать пожалуйста) Булево это что-то типо тру фолс, если я не ошибаюсь) Но ми это булево еще не учили и я не знаю как правильно его оформить.

[ByAlex]

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

Ну так, подскажите как правильно написать пожалуйста) Булево это что-то типо тру фолс, если я не ошибаюсь) Но ми это булево еще не учили и я не знаю как правильно его оформить.

Ладно, сейчас попробую!

[ByAlex]

Вот, пробуй -

program Project8;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  x,a,b,c,z:integer;
begin
    { TODO -oUser -cConsole Main : Insert code here }
    writeln('vvedu x');
    readln(x);
    a:=x div 100;
    b:=(x mod 100) div 10;
    c:=(x-(a*100+b*10)) mod 10;
    z:=a+b+c;
    if (x mod z =0) then
      writeln('dilutsa - ',x/z:2:2)
    else writeln('ne dilutsa');
    readln;
    readln;
end.

Если помогло, жми на весы!

[NIKSTER]

Я уже сам нашел свои ошибки и там алгоритм немного не правильный был) Условия задачи перепутал) Но все равно спасибо) А то все с короной сидят и молчат)