100/7=14.2 значит пройдёт 14 недель и 2 дня, значит будет суббота
Программа работает
var
<span>n,</span><span>i,j,</span><span>s :integer;
</span>begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.
<span>
П.С. программа находит все простые числа до заданного тобой числа</span>
Var
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
По формуле
, где N - кол-во символов в алфавите, i - объём информации в одном символе. Получаем
. Значит i=2, т.е. каждый символ равен 2 битам.
30 строк*70 символов в строке= 2100 символов на странице
2100 символов*5 страниц=10500 всего символов
Далее нужно умножить общее кол-во символов на 2 бита 10500*2=21000
Далее переводим из битов в байты 21000/8=2625 байт
Ответ: 2625 байт
Var s:string; k,i:integer;
begin
write('Введите строку:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>Введите строку:
13 апреля 2016 г .
k = 6</span>