Real To Integer Опции

[abc]

mozno kak chislo

[ REAL]

iz massiva okruglit' i perevesti v integer chtobi mozno bilo v chislo FOR ego ispolzovat'

Сообщение отредактировано: volvo - 3.12.2005 16:06

[volvo]

for vopros := 1 to 10 do begin
  write (vopros,' Vvedite chislo : '); readln(nums[vopros]);

  for loop := 1 to trunc(nums[vopros]) do write('*');
  writeln(' ',nums[vopros]:10:5);
end;