Решение приведено в файле приложенном ниже!!!!программа тестировалась и работает
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
Program P1;
var x,y:real; k:integer;
begin
write('Цена товара = '); readln(x);
y:=x; k:=0;
while y<1.5*x do
begin
y:=y*1.01;
k:=k+1;
end;
writeln('k = ',k);
<span>end.</span>
Если не нужен вывод самих чисел, закомментируйте строки 8, 12, 15
вобще меня учитель учил это делать так: