Var
a,i:integer;
m:real;
begin
Randomize;
m:=0;
Write('Получены числа: ');
for i:=1 to 3 do
begin
a:=Random(10);
Write(a,' ');
m:=m+a
end;
Writeln;
m:=m/3;
Writeln('Их среднее арифметическое равно ',m:0:3)
end.
<em><u>Тестовое решение:</u></em>
Получены числа: 5 3 3
Их среднее арифметическое равно 3.667
var
n:integer;
begin
Write('Введите целое число: '); Read(n);
Writeln(n-1,', ',n,', ',n+1)
end.
<em><u>Тестовое решение:</u></em>
Введите целое число: 35
34, 35, 36
Тут подбором наверное нужно решать. Просто переводим в другие системы, пока не получится то, что просят (100). Чтобы не делать тут длинные лишние записи, я напишу сразу то, что должно получаться.
Если тебе обязательно нужно по очереди все перебрать - перебирай.
49 в семиричную
49:7=7 (0)
7:7=1(0)
Записываем снизу вверх:
100 - то, что и просили.
В семеричной системе счисление основание 7 (потому она и семеричная)
Ответ: 7
270 получается потому In=3умножить на 8 и на 18!вот и ответ !
Ты издеваешься? Думаешь тебе за 5 баллов напишут программу???
Работой всех составляющих компьютера занимается процессор, который обрабатывает всю получаемую от пользователя информацию, НО так же работоспособность всех комплектующих ещё на ранней стадии запуска контролирует чип с BIOS. Его задача - проверить систему на наличие ошибок и сбоев. Если что-то будет не так, то компьютер попросту не сможет включиться.