Складіть проект для обчислення значення виразу a+b-c:(a-2b). (Это надо сделать в Lazarus,...

0 голосов
308 просмотров

Складіть проект для обчислення значення виразу a+b-c:(a-2b). (Это надо сделать в Lazarus, pascal)


Информатика (12 баллов) | 308 просмотров
0

Vara,b,c:real;BeginWrite('a = ');ReadLn(a);Write('b = ');ReadLn(b);Write('c = ');ReadLn(c);WriteLn(a+b-c/(a-2*b));End.

Дан 1 ответ
0 голосов

Var
a,b,c:real;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
WriteLn(a+b-c/(a-2*b));
End. 

(97 баллов)