Program e1;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x < 5 then y := (4 * sqr(x) + 1) / (-5)
else y := 3 * sqr(x) - 2;
writeln('y=', y)
end.
--------------------------------------------
program e2;
var
x, y: real;
begin
writeln('Введите х');
readln(x);
if x > -4 then y := (5 * sqr(x) + 2) / (x + 4)
else y := 3 * sqr(x) + 7;
writeln('y=', y)
end.
У меня нет Турбо Паскаля, вставьте там в начале, как всегда пишете директиву uses Crt
Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так
var
Кукла - кулак
марка - рамка, карма
каприз - приказ
соринка - росинка
Наливаем 4 литра =>7 потом с нова 4=>7 и остается один литр в 4
делаем такие же операции и один литр в 7 литров а потом два раза по 4 литра туда и останется ведре 2 литра
а потом такие же операции как 2 литра переливаем их 7 литров а затем полный 4 литра получается 6