Question

Составьте программу, печатающую значение TRUE,если указанное высказывание является истинным, и FALSE в противном случае: число с является средним арифметическим чисел а и b

Answer 1

uses crt;
var  a, b, c: real;
begin 
writeln('Введите число a'); 
readln(a); 
writeln('Введите число b'); 
readln(b); 
writeln('Введите число c'); 
readln(c); 
if(c = (a + b) / 2) then writeln('True') 
else writeln('False');
end.