Критерии информационной культуры человека —

 

1. вести индивидуальные информационно-поисковые системы

2. эффективно осуществлять поиск нужной информации во всей совокупности информационных ресурсов

3.не адекватно отбирать и оценивать информацию

4.не эффективно осуществлять поиск нужной информации во всей совокупности информационных ресурсов
( может быть несколько ответов )
​

1. Чтобы решить задачу, надо определить, какое количество варенья съест Машенька за 20 дней. Вначале вычислим это количество в ложках, если известно, что за день она съедает по 5 ложек варенья:

5 * 20 = 100 ложек.

2. Теперь переведем 100 ложек варенья в граммы, если известно, что каждая ложка помещает 5 г варенья:

100 * 5 = 500 грамм.

3. Если исходное количество варенья составляет 650 грамм, тогда вычтем из этой массы ту часть, что съест Машенька за 20 дней и получим массу оставшегося варенья через 20 дней:

650 - 500 = 150 грамм.

ответ: получили, что через 20 дней в банке останется всего 150 грамм варенья.

Var
a,str:string;
k,n,i,z,m,j,c,S,x,y,l:integer;
    begin     
            writeln('введите число');
            readln(str);     
                writeln('a ?');     
                readln(a);     
                writeln('z ?');     
                readln(z);   
                writeln('x & y');     
                readln(x,y);     
                n:=length(str);     
                     for i:=1 to n do     
                         begin       
                             if str[i]=a then           
                                   k:=k+1;           
                                   val(str[i],m,j);               
                                        if m mod z=0 then                   
                                           c:=c+1;                   
                                               if str[i]>a then                       
                                                   begin                           
                                                          val(str[i],m,j);                           
                                                          s:=s+m;                       
                                                   end;                     
                                      val(str[i],m,j);                     
                                          if (m=x)or(m=y)then                       
                                               l:=l+1;
                           end;
writeln('k: ',k,'кратное z: ',c,' s: ',s,'  кол-во x,y: ',l);
end.