Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: klausimai

Parašė s1Nk· 2011 Sau. 12 22:01:41
#152

Besilaikanti dietos moklseivė svarstyklėmis pasvėrė šešis pyragaičius. Tuos, kurie buvo lengvesni negu 50g, ji suvalgė.

Parašykite programą apskaičiuojančią, kiek svėrė suvalgyti pyragaičiai, ir kiek pyragaičių dar liko. Pradiniai duomenys - klaviatūra įvedami pyragaičių svoriai (gramais).

program pyragaiciai;
var
  mas:array[0..6] of integer;
  a,b,c,d,e,f:integer;
begin
 Writeln('Iveskite 1 pyragaičio svori');
 ReadLn(a);
 Writeln('Iveskite 2 pyragaičio svori');
 ReadLn(b);
 Writeln('Iveskite 3 pyragaičio svori');
 ReadLn(c);
 Writeln('Iveskite 4 pyragaičio svori');
 ReadLn(d);
 Writeln('Iveskite 5 pyragaičio svori');
 ReadLn(e);
 Writeln('Iveskite 6 pyragaičio svori');
 ReadLn(f);
 begin
 
 end
end.

Nesugalvoju niekaip kaipt tuos veiksmus aprasyti. :s Gal kas gali pasakyt kokia uzuomina. :/

Redagavo ozzWANTED· 2011 Vas. 13 12:02:47