Склавиатуры вводят слово и символ.составьте программу, которая: проверяет, есть ли в этом слове заданный символ

var s: string;

c: char;

begin

readln(s,c);

if pos(c,s)< > 0 then writeln('est') else writeln('netu');

end.

#include < iostream> using std: : cout; using std: : cin; using std: : endl; int main(){    int n, m, counter = 0;     cout < < "enter n: ";     cin > > n;     cout < < "enter m: ";     cin > > m;     if(n > = m)    {          cout < < "invalid value" < < endl;     }    else    {          while(n < = m)          {                if(n % 4 == 0)                {                      counter++;                 }                n++;           }    }    cout < < counter < < " value" < < (counter ! = 1 ? "s" : "") < < endl;     cin.get();     return 0; }

вывод:

enter n: 2000

enter m: 2012

4 values

на паскале:

program test; var n, m, counter: integer; begin  write('enter n: ');   readln(n);   write('enter m: ');   readln(m);   counter : = 0;   while n < = m do  begin      if n mod 4=0 then          counter : = counter + 1;       n : = n + 1;   end; writeln(counter, ' values'); readln(); end.

860

ход решения: делим число на 2 и выписываем остатки860 = 430·2 +  0430 = 215·2 +  0215 = 107·2 +  1107 = 53·2 +  153 = 26·2 +  126 = 13·2 +  013 = 6·2 +  16 = 3·2 +  03 = 1·2 +  1последний множитель перед 2 равный  1  записываем первым.затем записываем найденные остатки в обратном порядке.получаем:   1101011100

ход решения: делим число на 8 и выписываем остатки860 = 107·8 +  4107 = 13·8 +  313 = 1·8 +  5последний множитель перед 8 равный  1  записываем первым.затем записываем найденные остатки в обратном порядке.получаем:   1534

ход решения: делим число на 16 и выписываем остатки860 = 53·16 +  12  (12 записывается как  c)53 = 3·16 +  5последний множитель перед 16 равный  3  записываем первым.затем записываем найденные остатки в обратном порядке.получаем:   35c