Question

Яке значення S буде виведено в текстове поле? var N, d, S: Integer;beginN: = 345; S:= 0Repeatd:= N mood 10;S:= S+dN:= N div 10;Until N=0Edit2.Text:= IntToStr(S);endСРОЧНООО​

Answer 1

Ответ: 12

Объяснение:

В коде были недочёты, поэтому пришлось дополнить его, дабы получить ответ.

var N, d, S: Integer;

begin

N:= 345; S:= 0;

Repeat

d:= N mod 10;

S:= S+d;

N:= N div 10;

Until N=0;

Writeln(S);

end.

Answer 2

У вашому коді є деякі помилки. Ви використовуєте невірний оператор для обчислення залишку (mod) і ви зробили друкарську помилку у виразі "N: = 345". Ось поправлений код:

delphiCopy code
var
  N, d, S: Integer;
begin
  N := 345;
  S := 0;
  Repeat
    d := N mod 10;
    S := S + d;
    N := N div 10;
  Until N = 0;
  Edit2.Text := IntToStr(S);
end;

Після виправлення коду, значення S буде дорівнювати 12, і це значення буде виведено в текстове поле Edit2.