Pascal (Ciklas for)

Gal kas galit padet isspresti uzdavini?

Prie kasos langelio stovi n zmoniu. Kasininke pirmajam zmogui skiria t laiko. Sudarykite programa, kuri apskaiciuotu kiekvieno kliento kliento sukaista laika sioje istaigoje. Pradiniai duomenys ivedami is kliaviaturos. Pagalvokite apie vaizdu rezultatu apipavidalinima.

man atrodo i-tojo kliento sugaistas laikas butu i * t, nes jei pirmam klientui sugaista t laiko, tai kai i = 1, tai laikas ir lygus t, tada jau kai tas klientas nueina, pirmasis klientas pasidaro i = 2 ir jam vel tiek pat laiko sugaista ir t.t., manau cia tik sudaugint reikia.

man atrodo i-tojo kliento sugaistas laikas butu i * t, nes jei pirmam klientui sugaista t laiko, tai kai i = 1, tai laikas ir lygus t, tada jau kai tas klientas nueina, pirmasis klientas pasidaro i = 2 ir jam vel tiek pat laiko sugaista ir t.t., manau cia tik sudaugint reikia.

Cia juk klausia kiek laiko sugais kiekvienas klientas.

Program SugaistasLaikas;

var i, n, t, x : Integer;

Begin

WriteLn('Kiek laiko skiriama 1 zmogui?:');

ReadLn(t);

WriteLn('Kiek zmoniu eileje?:');

ReadLn(n);

x := 0;

For i := 1 to n do

Begin

x := x+t;

WriteLn(i, ' zmogus sugais laiko: ', x);

End;

ReadLn;

End.

tai kokios problemos surast, kiek kievienas sugais, kai zinai kiek i-tasis sugais?

man tai nelogiskai skamba uzdavinys. pirmajam skiria kazkiek laiko, o apie sekancius nieko nepasakyta. tai jei skiria visiems vienoda laika, tuomet ir reiktu formuluoti uzdavini: Kasininke visiems zmonems skiria vienodai laiko