Шанежки 751
Пирожные 341
Прибыль эквивалентна стоимости 2898 пирожков
Var x, y: real;
begin
readln(x);
if (x > -1) then y := 3 * sqr(x) - 4 * x
else y := 1 / (2 - 3 * x);
writeln(y);
<span>end.
Проверил =)</span>
Ну это легко встань перед зеркалом и перирисовывай себя!!!
Если потрудиться, то за 7,5 балла если разберусь с условием:
Что помещать в файл данных?
И какие файлЫ помещать в двумерный массив?
Что-то условия до меня доходят не очень-то :(((
Короткое решение:) Можно было бы, конечно, и без числа, но лучше будет, если интерпретатор сам распорядится ошибочным вводом =)
var a: integer;
b: string;
begin
readln(a);
b := inttostr(a);
writeln(length(b));
<span>end.
</span>