Запиши число 12476 в развёрнутом виде, начиная со старшего разряда.

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

#include < cstdlib> #include < iostream> using namespace std; int main(int argc, char *argv[]){      int n;       cout< < "введите количество элементов массива."< < endl;       cin> > n;       int mas1[n];       int mas2[n];             for(int i=0; i< n; i++){      mas1[i] = rand()%100; //заполняем массив случайными числами от 0 до 100      if(mas1[i]%10 == 4) {                                mas2[i]=mas1[i]/2;                                 cout< < "замена! ";                                 }      else {cout< < "\t";                 mas2[i]=mas1[i];                 }      cout< < mas1[i]< < '\t'< < mas2[i]< < endl;       }      system("pause");       return exit_success; }

1.

var a: longint;

begin

  read(a);

  if (a mod 10)=(a div 10) then writeln('цифры одинаковы');

  if (a mod 10)> (a div 10) then writeln('вторая цифра больше');

  if (a div 10)> (a mod 10) then writeln('первая цифра больше');

end.

2.

var a,b,c: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  b: =b*b*b;

  c: =c*c*c;

  d: =4*(b+c);

  if sqr(a)=d then writeln('квадрат этого числа равен учетверённой сумме кубов его цифр') else writeln('  квадрат этого числа не равен учетверённой сумме кубов его цифр');

end.

3.

var a,b,c,d: longint;

begin

  read(a);

  b: =a mod 10;

  c: =a div 10;

  d: =c+b;

  if d mod 3=0 then writeln('сумма цифр данного числа кратна 3') else writeln('сумма цифр этого числа не кратна 3');

  if  d mod 4=0 then writeln('сумма цифр данного числа кратна 4') else writeln('сумма цифр этого числа не кратна 4');

end.

4.

var a,b,c,d,e: longint;

begin

  read(a);

  b: =a mod 10;

  c: =(a mod 100)   div 10;

  d: =a div 100;

  b: =b*b*b;

  c: =c*c*c;

  d: =d*d*d;

  e: =b+c+d;

  if sqr(a)=e then writeln('квадрат этого числа равен сумме кубов его цифр.') else  writeln('квадрат этого числа не равен сумме кубов его цифр.');

end.

5.

var a,b,c,d: longint;

begin

  read(b,a);

  c: =b mod 10;

  d: =b div 10;

  if (c=3)or(d=3) then writeln('в запись этого числа входит цифра 3') else  writeln('в запись этого числа не входит цифра 3');

  if (c=a)or(d=a) then  writeln('в запись этого числа входит цифра ',a') else  writeln('в запись этого числа не входит цифра ',a);

end.