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

А) 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.