<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите натуральное четырехзначное число:');
var p:=1;
loop 4 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
<u>Пример</u>
Введите натуральное четырехзначное число: 2895
Произведение цифр числа равно 720
begin
var (a,b,c):=ReadReal3('Введите коэффициенты a b c:');
var d:=Sqrt(b*b-4*a*c);
if d=0 then Writeln('x=',-b/2/a)
else Writeln('x1=',(-b-d)/2/a,', x2=',(-b+d)/2/a)
end.
<u>Пример</u>
Введите коэффициенты a b c: 1 -0.5 -7.5
x1=-2.5, x2=3
На чем и может ли она принимать аргументы? А вообще - это называется факториал и обозначается !
Функция на PHP:
function summa($n)
{
for($i=1;$i<$n;$i++)
{
$summa = $i+$i;
}
}
Возможно немного ошибся
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.
А1. 10(2)+10(4)+10(6)+10(8)=2+4+6+8=20(10)
Ответ: 2.
А2. 60(10) = 111100(2)
Ответ: 1.
А3. 25(10) = 11001(2)
Ответ: 3.
А4. 17(10)=101(4)
Ответ: 3.
В1. 12(8)+17(8)=31(8)
Ответ: Восьмеричной СС.
В2. А=203(4)=35(10)
В=10101(2)=21(10)
С=135(6)=59(10)
Ответ: С, А, В.
1. фишинг
2. статус
3. модератор
4. аккаунт
5. группа
6. пост
7. реал
8. бан
Слово - ресурс