На языке паскаль:

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.