1. дано натуральное число. определить является ли произведение его цифр кратным числу a 2. известны данные о количестве осадков, выпавших за каждый день марта. верно ли, что осадков не было 10 дней в месяц?

uses crt; var ch,a: integer; begin readln(ch); readln(a); if ((ch div 10)+( ch mod 10)) mod a = 0 then writeln('yes') else writeln('no');

readln;

end.

 

2.

 

uses crt; var i,os: integer; a: array[1..31] of integer; beginrandomize; os: =0; for i: =1 to 31 dobegina[i]: =random(5)+0; if a[i]=0 then inc(os); end; for i: =1 to 31 dowrite(a[i],' '); writeln; if os = 10 thenwriteln('yes') else writeln('no');

readln;

end.

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! №1 begin   var n: =readinteger('n=');   var s: =n mod 10;   n: =n div 10;   var d: integer;   while n> 0 do (d,n): =(n mod 10,n div 10);   s+=d;   writeln('сумма ',s);   if s> 10 then writeln('верно') else writeln('неверно') end. №2 begin   var s: =readinteger('n=').tostring;   var n: =s.length;   (s[1],s[n]): =(s[n],s[1]);   s.println;   if s[n].todigit.iseven then writeln('верно') else writeln('неверно') end. №3 begin   var n: =readinteger('n=');   var p: =1;   while n> 0 do begin       var d: =n mod 10;       if d.isodd then p*=d;       n: =n div 10       end;   writeln('произведение ',p);   if p.inrange(100,999) then writeln('верно') else writeln('неверно') end. №4 begin   var n: =readinteger('n=');   var k: =0;   while n> 0 do begin       if n mod 10=5 then k+=1;       n: =n div 10       end;   if k=3 then writeln('верно') else writeln('неверно') end. №5 begin   var n: =readinteger('n=');   var k: =1;   writeln('делители: ');   for var i: =1 to n div 2 do       if n mod i=0 then begin           print(i);           k+=1           end;   writeln(n);   if k.iseven then writeln('верно') else writeln('неверно') end.