Очевидно архмв поврежден.
Либо архиватора нет =)
Если он все же есть, попробуй убедиться в том, что архив поврежден.
1.Запусти архиватор (просто саму программу)
2.Найди через программу файл с архивом и выдели его.
3.Нажми кнопку "Тестировать" или "Проверить" или что то в этом роде.
Если повалятся ошибки в появившемся окне, то архив порченый, если ни одной ошибки не появится, то проблема не в этом.
Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Да
в СИС теме много схем вот одна 546родикалит82-гом