SaveText.Ru

задача010
  1. program pr;
  2. var
  3.   a:integer;
  4.   result:real;
  5. begin
  6.   write('VVedite chislo');
  7.   readln(a);
  8.   if (a mod 2)=0 then result:=a/4 else result:=a*5;
  9.   writeln('Получим ',result);
  10. end.

Share with your friends:

Print