var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.
Очевидно архмв поврежден.
Либо архиватора нет =)
Если он все же есть, попробуй убедиться в том, что архив поврежден.
1.Запусти архиватор (просто саму программу)
2.Найди через программу файл с архивом и выдели его.
3.Нажми кнопку "Тестировать" или "Проверить" или что то в этом роде.
Если повалятся ошибки в появившемся окне, то архив порченый, если ни одной ошибки не появится, то проблема не в этом.
1* 1 = 1
11 * 11 = 121
111 * 111 = 12321
1111 * 1111 = 1234321
11111 * 11111 = 123454321
то есть в произведении сначала цифры от 1..N, а потом обратно до 1, где N - количество цифр в множителях
1.взять миску
2.открыть холодильник
3.взять корм
4.закрыть холодильник
5.наложить корм в миску
6.поставить миску собаке
7.помыть миску после того как собака поела
8.вытереть мордочку собаке
9.конец