Проверочная работа «Линейные алгоритмы» Вариант 2 Составить программы…

1) uses crt; var c,d: integer; f: real; beginwrite ('Введите число c: '); readln (c); write ('Введите число d: '); readln (d); f: =(c*c*c+d*d*d) /2; writeln (f: 5:3); end.2) uses crt; var a,c1,c2,c3,c4,s: integer; beginwrite ('Введите четырехзначное число: '); readln (a); c1: =a div 1000; c2: =a-c1*1000; c2: =c2 div 100; c3: =a-c1*1000-c2*100; c3: =c3 div 10; c4: =a-c1*1000-c2*100-c3*10; s: =c1*c2*c3*c4; writeln ('Произведение цифр числа ',a,' равно ',s); end.