Dirko11111

didelis tau aciu ziauriai geras zmogus esi viskas veikia aCIUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU

ne masyvu nemoku gal galetum padet

Tai tu imesk i fps ir paziurek nes as nezinau kaip paiskint man atrodo kad ciklas blogai veikia nes kada ivedi tarkim 3 dezes ivedi matmenis ir paspaudi enter turetum rasyti kitos dezes matmenis o programa tau duoda atsakyma nepriklausomai nuo to kiek tu parasysi deziu ar 2 ar 3 ir taip toliau

Vistiek nelabai pavyksta gal kas nors kitas zinos kaip parasyti

Nebeiseina su sita programa jis viska skaiciouja kaip ir skaiciavo gali pats pabandyt

Man reikia kiekvienoi dezei atskirai ir vat as nezinau kaip rasyt jau dvi dienas bandau parasyt ir nieko nepavyksta kaip su tuo ciklu rasyt gal galetum padet.

Turime N skirtingų stačiakampių dėžių. Kiekvienos dėžės pagrindas A × B ir aukštis C žinomi. Visos dėžės iki pusės pripiltos vandens. Kiek galima į kiekvieną dėžę priberti vyšnių (kaip žinome, jos skęsta), jeigu vyšnios skersmuo R mm ir vandens neturi išbėgti. A, B ir C reikšmės ne mažesnės kaip 50 cm. Kiek iš viso vyšnių bus suberta?

Bandziau pats parasyti vat kas iseina kada su viena deze viskas ok ir nezinau kaip padaryti kad butu daugiau dezius ta prasme jejgu 2 dezes du atsakymai turi buti gal kas zinot kaip padaryti prasau pedekit labai reikia.

program Vyšnios;

var a, b, c, r, ap : real;

n: integer;

kiek : longint;

begin

writeln('Parašykite vyšnios skersmenį r milimetrais');

readln®;

writeln('Parašykite kiek dėžių turime');

readln(n);

writeln('Parašykite dėžės išmeras a, b, c, nemažesne kaip 50 cm');

readln(a,b,c);

if a>=50 then if b>=50 then if c>=50 then

ap := a*b*c;

r := r / 10 / 2; {Verčiam spindulį į centimetrus}

kiek := trunc ((ap / 2 / ((4/3) * Pi * r * r * r)));

WriteLn(kiek); Writeln( ' Tiek vyšnių telpa į ') ;Writeln(n); Writeln(' dėžių');

Readln;

end.

Tipo toi pačioi programoi ir sandauga ir faktoriala.

Taip per FPS bet reikia su while ir Repeat su for aš pats galiu

Sveiki, labai reikalinga pagalba reikia parašyti programą niekaip nepavyksta.

Parašykite programą kuri rastų skaičių nuo 1 iki n sandaugos faktoriala. While ir Repeat ciklas. Labai ačiu už pagalbą.