На языке паскаль: 1. Проверить, делится ли произведение пяти натуральных чисел на первое из них нацело. 2.Определите количество двузначных чисел, сумма квадратов цифр которых делится без остатка на 15.

1. uses crt; var a,b,c,d,e,f:integer; begin writeln ('vvedite 5 chisel'); read (a,b,c,d,e); f:=a*b*c*d*e ; if (f mod a)=0  then writeln ('delitsa')  else writeln ('nedelitsa'); end. По поводу второй, не уверен, если под суммой квадратов цифр подразумевается 10 = 1*1+0*0, то эта программа неправильна, её нужно переписать будет.  uses crt; var a,i,s,t,t1:integer; begin for i:=10 to 99 do begin t:=i div 10; t1:=i mod 10 ;  if (sqr(t)+sqr(t1)) mod 15 = 0  then s:=s+1;  end;  writeln (s); end.