|
Przemyslalem to jeszcze. Rozsadniej bedzie zrobic:
var c: char;
potem
writeln('Jezeli chcesz otrzymac srednia arytmetyczna tych liczb to nacisnij t, a jezeli chcesz otrzymac ich sume to nacisnij n:');
c:=readkey;
IF (c='T') or (c='t') THEN begin s:=(a+b)/2; writeln(c) end ELSE
IF (c='N') or (c='n') THEN begin s:=a+b; writeln(c) end ELSE writeln('BLEDNY WPIS');
writeln('Nacisnij dowolny klawisz zeby zakonczyc');
readkey
end.
|