мозно как число[ REAL]
из массива округлить и перевести в интегер чтоби мозно било в число ФОР его исползовать
мозно как число[ REAL]
из массива округлить и перевести в интегер чтоби мозно било в число ФОР его исползовать
не берёт у мена такого
извени
мне надо что би вводиш 10 чисел реал и он виводил тебе строчку звездочек такое зе какое ти ввел число . если ввел не целое число он его округлял би.
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;
СПАСИБО!
а мозно есо сделать так чтоб если введино число болсе 75 звездочки писались до 75 и потом перексодили на другю строку
for vopros := 1 to 10 do begin
write (vopros,' Vvedite chislo : '); readln(nums[vopros]);
for loop := 1 to trunc(nums[vopros]) do begin
write('*');
if loop mod 75 = 0 then writeln;
end;
writeln(' ',nums[vopros]:10:5);
end;
болсое спасибо !
мозете проверить транслит не работает