mozno kak chislo[ REAL]
iz massiva okruglit' i perevesti v integer chtobi mozno bilo v chislo FOR ego ispolzovat'
mozno kak chislo[ REAL]
iz massiva okruglit' i perevesti v integer chtobi mozno bilo v chislo FOR ego ispolzovat'
ne berjot u mena takogo
izveni
mne nado chto bi vvodish 10 chisel real i on vivodil tebe strochku zvezdochek takoe ze kakoe ti vvel chislo . esli vvel ne celoe chislo on ego okrugljal bi.
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;
SPASIBO!
a mozno eso sdelat' tak chtob esli vvedino chislo bolse 75 zvezdochki pisalis' do 75 i potom perexodili na drugju stroku
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;
bolsoe spasibo !
mozete proverit' translit ne rabotaet