СРОЧНО!!!!!Что не так? Пишет ошибка "BEGIN" rogram pr; var a,b,с,:integer; begin writeln('Введите три целых числа'); read(a,b,c); s:=(sqrt((2*a)+(3*(b*b*b)))/(a-c); k:=(2*(s*s*s*s))-(3*(sqrt(abs(a*b*c)))); y:=(6*s)+(2*k)-((s*s*s*s)/(3*a*b*c)); writeln ('Получилось число',y); end.
В строке var a,b,с,:integer; лишний символ ":" перед "integer". Надо написать var a,b,c:integer;
В строке s:=(sqrt((2a)+(3(bbb)))/(a-c); не хватает закрывающей скобки после (a-c).
Не хватает знака "=" перед ":=" в строках присваивания значений переменным s, k, y.
В команде read(a,b,c); после символа "c" должна быть запятая.
Вот исправленный код:
program pr; var a,b,c:integer; s,k,y:real; begin writeln('Введите три целых числа'); read(a,b,c); s:=(sqrt((2a)+(3(bbb))))/(a-c); k:=2(ssss)-(3(sqrt(abs(abc)))); y:=(6s)+(2k)-((ssss)/(3ab*c)); writeln ('Получилось число ',y); end.
В вашем коде есть несколько ошибок:
В строке var a,b,с,:integer; лишний символ ":" перед "integer". Надо написать var a,b,c:integer;
В строке s:=(sqrt((2a)+(3(bbb)))/(a-c); не хватает закрывающей скобки после (a-c).
Не хватает знака "=" перед ":=" в строках присваивания значений переменным s, k, y.
В команде read(a,b,c); после символа "c" должна быть запятая.
Вот исправленный код:
program pr;
var a,b,c:integer;
s,k,y:real;
begin
writeln('Введите три целых числа');
read(a,b,c);
s:=(sqrt((2a)+(3(bbb))))/(a-c);
k:=2(ssss)-(3(sqrt(abs(abc))));
y:=(6s)+(2k)-((ssss)/(3ab*c));
writeln ('Получилось число ',y);
end.