Файл размером 46875 кбайт был передан за 48 секунд этот же файл после архивирования может быть передан с той же скоротью за 32 секунды на сколько кбайт размер архива меньше исходного файла
Если это программа в Кумире, то в таком виде она не заработает.
Нужно исправить ошибки- вместо "куда" должно стоять "кц" (конец цикла), а первые три строчки должны начинаться с малых букв (иначе система не воспримет их как ключевые слова).
А вообще, здесь задан один цикл для переменной k (от трёх до пятнадцати, то есть 13 разных значений).
Значит, этот цикл будет выполнен 13 раз.
И каждый раз к начальному значению s (ноль), будет прибавляться десять.
В итоге получим 0 + 13 * 10 = 0 + 130 = 130
Более никакие действия с переменными не делаются, сразу печатается на экран значение s, то есть 130
Программа для 1. var n,b,s:integer; begin Write('Введите натуральное число и значение b: '); Read(n,b); if n>b then Writeln('Неверно') else begin s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10 end; if s mod 2=0 then Writeln('Верно') else Writeln('Неверно') end end.
Программа для 2. var k,m,n,b,s:integer; begin Write('Введите натуральное число и значения m,n: '); Read(k,m,n); if k mod n <> 0 then Writeln('Неверно') else begin s:=0; while k>0 do begin s:=s+k mod 10; k:=k div 10 end; if s>m then Writeln('Верно') else Writeln('Неверно') end end.
Если это программа в Кумире, то в таком виде она не заработает.
Нужно исправить ошибки- вместо "куда" должно стоять "кц" (конец цикла), а первые три строчки должны начинаться с малых букв (иначе система не воспримет их как ключевые слова).
А вообще, здесь задан один цикл для переменной k (от трёх до пятнадцати, то есть 13 разных значений).
Значит, этот цикл будет выполнен 13 раз.
И каждый раз к начальному значению s (ноль), будет прибавляться десять.
В итоге получим 0 + 13 * 10 = 0 + 130 = 130
Более никакие действия с переменными не делаются, сразу печатается на экран значение s, то есть 130