Помогите написать программу в pascal вот задания: заранее огромное спасибо
5-9 класс
|
1). var a,b,c,d,p: integer;
begin
readln(a);
p:=1;
b:=a mod 10;
a:=a div 10;
c:=a mod 10;
a:=a div 10;
d:=a mod 10;
a:=a div 10;
p:=a*b*c*d;
writeln(p);
end.
2) Var a,b,sa,sg: real;
begin
readln(a,b);
sa:=(power(a,3)+power(b,3))/2;
sg:=sqrt(abs(a)*abs(b));
writeln(sa, sb);
end.
Другие вопросы из категории
рассматривать следующую блок-схему как модель решения поставленной задачи? Какая роль здесь отводится М? начало ! А,В,М ! М:=А ! А:=В ! В:=М ! конец
сравните объёмы информации содержащейся в этих сообщениях? с дано и как полагается
Создать массив a из десяти целых чисел, принадлежащих промежутку [0;25). Вывести полученный массив на экран. Подсчитать k - количество элементов массива, значение которых превышает 12.
Помогите пожалуйста!! Очень нужно!!
Читайте также
вычисления суммы чисел от 6 до 10. Написать программу вычисления n! (факториал числа n), где n- целое неотрицательное число.
Определение факториала:
0!=1, 1!=1, 2!=1*2, 3!=1*2*3, ……,n!=1*2*3*…*(n-1)*n.
Другими словами n!- это произведение n натуральных чисел.
Заполнить массив К, состоящий из 22 элементов таким образом:
1. Написать программу нахождения произведения n чисел.