Var x, i:real;

Begin

Writeln ('vvedite vklad - ', X) ;

readln (X) ;

X:=X + (X*10/100) ;

X:=X + (X*15/100) ;

For i:=1 to 24 do

X:=X + (X*1/100) ;

writeln (X) ;

End.

Где я ошибся?

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.

Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn ('Расширение квадратного уровнения') ; Write ('Введите коофиценты a, b, c >>') ; ReadLn (a, b, c,) ; d:=b*b-4*a*c;

Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint) : real; begin var i: integer; var anew: real; anew:=a; for i: = 2 to n do begin a:=a*anew; end; end; begin readln (a, n) ;

Даны два числа. Найти среднее арифметическое кубов этих чисел. Что тут не так? program chisla; var a, b, sr: real; begin clrscr; writeln ('vvedite chislo a=') ; readln (a) ; writeln ('vvedite chislo b=') ; readln (b) ; sr: = ((a+a+a) * (b+b+b)) / 2;