Материнская плата-----'--
Играет звук-звучать,и так далее ,тут все изи же,потом останавливаешь звуки,далее барабан играет тактом,в общем думаю я тебе помог
Var
X,N:real;
Begin
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+power(x,n));
End.
С помощью функции возведения в степень, при условии, что основание - число вещественное, а показатель - целое.
Function St(O:real;P:integer):real;
Begin
result:=1;
For P:= 1 to P do
result:=result*P;
End;
Var
X:real;
n:integer;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+St(x,n));
End.
1. Уже в первой строке ошибка - отсутствует символ ";" в конце строки.
2. В строке № 8 ошибка, не объявленная переменная "a"
3. Это только ошибки в синтаксисе, после их исправления программа запускается, но работать так как нужно не будет. Ищем ошибки в алгоритме:
исправим стороку "for i := 1 to a do" на "for i := 1 to n do" и получим вывод всех делителей, но в условии задачи требуется вывести и их количество. Вот исправленный код программы:
var
n, i, a: integer;
begin
write('введите число');
read(n);
writeln('делители');
for i := 1 to n do
if n mod i = 0 then begin
writeln(i); a:=a+1;
end;
writeln('Делителей ',a);
end.
1-танци с стульчиком 2-приучениє собаки к команд 3-спеви 4-микрофиловка каторая печьот курицу 5-Сєсть яблоко можно 6-трактором можно пожороть поле.
