Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

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

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

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

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

Ответ оставил Гость

а) uses crt;
var c,d:integer;
s:real;
begin
write(Введите число с: );
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;
begin
write(Введите четырёхзначное число: );
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.