Найти на интервале числа делящиеся на 0.5

Категория: Delphi/Pascal
2011-09-04 16:42:52

Даны вещественные числа N и M. Найти на интервале <от меньшего из них до большего из них> с шагом 0.1 все вещественные числа, делящиеся на 0.5 с остатком не более 1-го знака после точки.

code: #pascal
  1. program zad1;
  2.  uses crt;
  3.  var
  4.  p,dx,n,m:real;
  5.  begin
  6.  clrscr;
  7.  writeln('VVEDITE n,m');
  8.  readln(n,m);
  9.  if n>m then begin p:=n; n:=m; m:=p; end;
  10.  dx:=n;
  11.  while dx<m do begin
  12.  p:=round(dx) mod 5;
  13.  if round(p*10)=p*10 then writeln(dx:1:2,' ',p:1:2);
  14.  dx:=dx+0.1;
  15.  end;
  16.  readkey;
  17.  end.
Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, вещественный числа, интервал