Встанови, який шаблон відповідає умові завдання: на малюнку 13.10 — кількість повторень відома — 3 рази, а на малюнку 13.11 — кількість повторень не відома. Повторення завершиться в тому разі, коли посудина буде заповнена.
3. Обери зі списку команди й умову та заповни шаблони:
набрати 1 л рідини, вилити рідину в посудину, кількість повторень дорівнює 3, посудина повна.
Насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. Например если вы введете число из 9001 символа, программа будет работать неккоректно. Для выхода из цикла используется 'метка'.
a, counter, Summa : integer;
Label Transfer;
Begin
writeln('Введите число');
readln(a);
counter := 1;
counterTw0 := counterTwo + 1;
while counter < 9000 Do
begin
counter := counter +1;
if (a div counter) < 0 then Transfer
else counterTwo := counterTwo + 1;
else;
Goto Transfer;
//Узнали, что в числе counterTwo символов
while counter < counterTwo Do
Summa := Summa + ((a div counter) mod 10);
Summa := Summa + (a mod 10);
writeln(Summa);
end.