Если x вводится с клавы: var x: integer; begin readln(x); writeln( 4*sqr(x)+2*(sqr(x)+1)); end.если нет, то begin writeln( 4*sqr(3)+2*(sqr(3)+1)); end.
Михаил1121
15.12.2022
Program z; var y,x: integer; begin write('введите число x'); readln(x); y: =4*sqr(x)+2*(sqr(x)+1) write('число y='): writeln(y); end. вроде бы так
Васильев1028
15.12.2022
1) это полное имя файла 2) это путь до папки "system" 3) это относительное имя файла 4) это относительное имя файла 5) это относительное имя файла, без расширения скорей всего, тут имелось ввиду имя файла, находящееся в текущем каталоге. ответ: 4 p.s. в принципе, именем файла может быть и exe, если оно не является расширением. если в в 5 варианте ответа перед exe не стоит точка, то это может быть именем файла. но, если перед exe стоит точка, то это расширение имени файла..
Васильевна Владимирович
15.12.2022
// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var a,b: integer; write('введите a и b: '); read(a,b); for var x: =a to b do writeln(x: 5,5-x*x/2: 8: 1) end. тестовое решение введите a и b: -5 10 -5 -7.5 -4 -3.0 -3 0.5 -2 3.0 -1 4.5 0 5.0 1 4.5 2 3.0 3 0.5 4 -3.0 5 -7.5 6 -13.0 7 -19.5 8 -27.0 9 -35.5 10 -45.0