Возможно проблема в том что какие то файлы поврежденны обратитесь в тех поддержку или переустановите операционную систему если и в дальнейшем не будет включаться
Var m, n: integer; s1, s2, s3: string; ms: array[1..9] of string; md: array[1..9] of string; m1: array[11..19] of string; me: array[1..9] of string; flag: boolean;
Write('Введите целое число от 1 до 1000: '); Readln(m); if (m < 1) or (m > 1000) then Writeln('Шутки шутим?') else if m = 1000 then Writeln('Одна тысяча ' + s3) else begin { сотни } n := m div 100; if n > 0 then begin Write(ms[n]); flag := true end; { десятки } m := m mod 100; if m = 0 then Writeln(' ', s3) else begin if (m > 10) and (m < 20) then begin if flag then Write(' '); Writeln(m1[m], ' ', s3) end else if m > 0 then begin n := m mod 10; m := m div 10; if m > 0 then begin if flag then Write(' ') else flag := true; Write(md[m]) end; if n <> 0 then begin { единицы } if flag then Write(' '); Write(me[n], ' '); case n of 1: Writeln(s1); 2..4: Writeln(s2); else Writeln( s3) end end else Writeln(' ', s3) end end end end.
Тестовое решение: Введите целое число от 1 до 1000: 314 триста четырнадцать рублей
Всего 3 партии: второй: 14; первый: 24. 1) Второй в третьей партии проиграл половину, следовательно 14 - это половина того , что у него было; значит первый в третьей партии выиграл 14, следовательно у него было на 14 меньше. Итоги второй партии: второй: 14*2=24; первый: 24-14=10. 2) Первый во второй партии проиграл половину , следовательно 10 - это половина того, что у него было; значит второй во второй партии выиграл 10, следовательно у него было на 10 меньше. Итого первой партии: второй: 28-10=18; первый: 10*2=20. 3) Второй в первой партии проиграл половину, следовательно 18- это половина того, что у него было; значит первый в первой партии выиграл 18, следовательно у него было на 18 меньше. Итоги до начала игры: второй: 18*2=36; первый: 20-18=2. ответ : 2 монеты было у первого пирата до начала игры. Проверка: второй: (36:2+10):2=14; первый: (2+18):2+14=24.
