Проверочная работа <Линейные алгоритмы> Вариант 2

Составить программы для вычисления:

a) Полусуммы кубов двух целых чисел с и d;

     Ответ дать с точность до трёх знаков после запятой

б) Произведения цифр четырёхзначного числа.

а) uses crt;var c,d:integer;s:real;beginwrite('Введите число с: ');readln(c);write('Введите число d: ');readln(d);s:=(power(c,3)+power(d,3))/2;writeln('Полусумма кубов равна ',s:5:3);end.б) uses crt;var a,x1,x2,x3,x4,s:integer;beginwrite('Введите четырёхзначное число: ');readln(a);x1:=a div 1000;x2:= a-1000*x1;x2:=x2 div 100;x3:=a-1000*x1-100*x2;x3:=x3 div 10;x4:=a-1000*x1-100*x2-10*x3;s:=x1*x2*x3*x4;writeln('Произведение всех цифр в числе ',a,' равно ',s);end.