Составьте программу, определяющую остаток от деления числа а на число в. (паскаль)

var

a,b,c: real;

begin

read(a,b);

c: =a mod   b;

write(c);

end.

 

 

 

 

 

 

 

 

 

 

 

 

Program z1;   var i,n,a,b,c: integer;         m: array [1..1000] of integer; begin  write('введите кол-во чисел - ');   readln(n);     randomize;     a: =0;     b: =0;     c: =0;     for i: =1 to n do  begin    m[i]: =random(100)-50;       write (m[i],' ');   end;       for i: =1 to n do    if (m[i]=0) then a: =a+1;         for i: =1 to n do    if (m[i]> 0) then b: =b+1;         for i: =1 to n do    if (m[i]< 0) then c: =c+1;   writeln;   writeln ('кол-во нулей - ',a);   writeln ('кол-во положительных чисел - ',b);   writeln ('кол-во отрицательных чисел - ',c); end.

#include < string> #include < iostream> using namespace std; int main(){     string s;     cin> > s;     if(s[0]! ='1'){                   cout< < "no";                   cin.get();                   cin.get();                   return 0;                   }     for(int i=1; i< s.length(); i++){             if((s[i]! ='1') & & (s[i]! ='0')){                             cout< < "no";                             cin.get();                             cin.get();                             return 0;                             }                             }     cout< < "yes";     cin.get();     cin.get();     return 0; }