<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
<u>Результат</u>
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.
Я так понимаю, задача на вывод формулы?
!! Если V - стоимость конфет за килограмм, то
- стоимость за грамм.
Количество граммов конфет, которые Андрей может купить на сдачу можно рассчитать по формуле:
Или, если в виде, подходящем для программы:
"N = 1000(S - (n_1 * v_1 + n_2 * v_2))\V".
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(10, 1, 10);
writeln(A[Random(A.Length)]);
end.
12+8=20
20+5=25
25*2=50
Или по другому:
((12+8)+5)*2=50
uses crt;
var a,b,s:real; z:char;
begin
write('Vvedite A = ');
readln(a);
write(' + - / * : ' );
readln(z);
write('Vvedite B = ');
readln(b);
case z of
'+': begin s:=a+b; writeln(a,' + ',b,' = ',s); end;
'-': begin s:=a-b; writeln(a,' - ',b,' = ',s); end;
'*': begin s:=a*b; writeln(a,' * ',b,' = ',s); end;
'/': begin s:=a/b; writeln(a,' / ',b,' = ',s); end;
else
writeln('error: incorrect operation symbol!!!');
end;
readln;
end.