Var a,b,c:integer;
begin
a:=random(10);
writeln('a = ',a);
b:=random(10);
writeln('b = ',b);
c:=random(10);
writeln('c = ',c);
writeln('Среднее арифметическое = ',(a+b+c)/3);
end.
Пример:
a = 4
b = 2
c = 9
Среднее арифметическое = 5
Программа с НОД
var t,t1,x,y,z:integer;
Function NOD(a, b: integer): integer;
Begin If a=b then NOD:=a
else if a>b then NOD:=NOD(a-b, b)<span>
Else NOD:=NOD(a, b-a);
</span>End;
begin
writeln('Введите 2 числа');
readln(x,y);
t:=NOD(X,Y);
writeln(t);
end.<span>
</span>
1) 174(8)=Х(10)
2)123(5)=Х(10)
3)1101,1(2)=Х(10)
4)23,2(8)=Х(10)
5)2А,4(16)=Х(10)
6)56,875(10)=Х(2)
7)324,015625(10)=Х(8)
8)765,125(10)=Х(16)
Дайте полный ответ,пожалуйста,с объяснениями
Походу я за вас тест решаю:D
К обратимым алгоритмам. Мадам,вы мне должны х3