[РЕШЕНО][Pascal] Помогите пожалуйста написать код на паскаль! Блок-схема внутри

[Lime789456]

Помогите пожалуйста написать код на блок схему. на языке паскаль

[p51x]

И? Чем помочь? Какие ошибки выдает компилятор? Что непонятно в блок-схеме?

[Lime789456]

Я написала код, но он выдает много ошибок

Incompatible types: got Extended expected Smallint
Illegal expression
Until expected but identifier total found
Compilation aborted

[p51x]

Где условие для первого until ?

[type_Oleg]

Во первых, что за until if total .. ?
Я про первый until. После него должно быть условие ( логическое выражение ).

Во вторых - конструкция then .. else - у вас и синтаксическая ошибка и логическая.

[Serge_Bliznykov]

если буквально, то так

......
  total:=number;
  repeat
    total := total div 10;
    if total<1 then Break
    x := x + 1;
  until false;
  writeLn(number,',',x);
  c:=c+1;
until c>4;

но можно и так записать:

......
  total:=number;
  repeat
    total := total div 10;
    if total>=1 then x:=x+1;
  until total<1;
  writeLn(number,',',x);
  c:=c+1;
until c>4;

p.s. цикл по C вполне можно заменить на for:

for c:=1 to 4 do begin
  ....
end;

[Lime789456]

Теперь все работает, спасибо большое♥♥♥