Очевидно архмв поврежден.
Либо архиватора нет =)
Если он все же есть, попробуй убедиться в том, что архив поврежден.
1.Запусти архиватор (просто саму программу)
2.Найди через программу файл с архивом и выдели его.
3.Нажми кнопку "Тестировать" или "Проверить" или что то в этом роде.
Если повалятся ошибки в появившемся окне, то архив порченый, если ни одной ошибки не появится, то проблема не в этом.
❤️❤️❤️на, держи❤️❤️❤️ удачи
Текстовые и графические алгоритмы, линейный алгоритм ( такие бывают )Алгоритм (модель процесса решения задачи) может быть представлен в виде текста на естественном языке или графически (блок-схемой).Алгоритм на естественномязыке даёт человеку болееподробную информацию, аблок схема – это наглядныйспособ представления информации. Алгоритм можно разделить по способу записи (форме представления) на текстовые (описание на естественном языке) и графические (блок-схемы). Алгоритм на естественном языке даёт более подробную информацию, а блок-схема – более наглядную.
//Pascal
//Для натуральных чисел
var a, s, p:integer;
begin
write('Введите число = ');
readln(a);
s := 0;
p := 1;
while (a<>0) do
begin
p := p * (a mod 10);
s := s + (a mod 10);
a := a div 10;
end;
writeln( 'Сумма цифр числа = ', s);
writeln( 'Произведение цифр числа = ', p);
end.
//Если число отрицательное
var
s, p, a, b, c: integer;
f: boolean;
begin
write('Введите число = ');
readln(a);
if a < 0 then
f := true;
a := abs(a);
b := a mod 10;
a := a div 10;
c := a mod 10;
a := a div 10;
if f = true then
begin
p := (-a) * b * c;
s := -a + b + c;
end
else
begin
s := a + b + c;
p := a * b * c;
end;
writeln('Сумма цифр числа = ', s);
writeln('Произведение цифр числа = ', p);
end.