СРОЧНО!!!!!Что не так? Пишет ошибка "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.
СРОЧНО!!!!!Что не так? Пишет ошибка "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.
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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
В вашем коде есть несколько ошибок:
В строке 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.