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