1.
program z1;
var a,b:integer;
begin
write('Введите 2 двузначных числа: ');
readln (a,b);
write('Произведение цифр числа ',a,' и числа ',b,' равно ',(a div 10) * (a mod 10) * (b div 10) * (b mod 10))
end.
2.
program z2;
var a,b:integer;
begin
write('Введите 2 числа: ');
readln (a,b);
writeln(a,'% от ',b,' равно ',b*a/100);
write(b,'% от ',a,' равно ',a*b/100)
end.
Объяснение:
Если во второй задаче надо найти какой процент составляет число а от числа b и какой процент составляет число b от а, то меняем строчки
writeln(a,'% от ',b,' равно ',b*a/100);
write(b,'% от ',a,' равно ',a*b/100)
на
writeln('Число ',a,' от числа ',b,' составляет ',a/b*100,'%');
write('Число ',b,' от числа ',a,' составляет ',b/a*100,'%')
