pascal kontrolinio uzduotis

rašė ktia grupe kontra ir aš ryt rašau.

taigi yra tokia uzduotis:

klasėje yra 20 sėdimų vietų. i klasę atėjo du naujokai ar tilps mokiniai klasėje.

reiktu parasytio tokia programa cia manau su if sakiniu turi buti

kazkas tokio

if a<b+2

then writeln(netilps)

else writeln(tilps)

kaip turetu atrodyt visa gatava programa ? noreciau pasianalizuot

if viso_mokiniu + 2naujokai <= 20

telpa

else

netelpa

Psaclio dar nelabai įkertu tai programos parašyti negaliu.

Kaip suprantu, keik klasėj mokinių tu įvedi.

program klase;
var a:integer;
begin
 WriteLn('Kiek klasej mokiniu');
 Readln (a);
 If a+2<=20
   then writeln ('Tilps')
   else   writeln ('Netilps');
 readln;
end.

Kaip suprantu, keik klasėj mokinių tu įvedi.

program klase;
var a:integer;
begin
 WriteLn('Kiek klasej mokiniu');
 Readln (a);
 If a+2<=20
   then writeln ('Tilps')
   else   writeln ('Netilps');
 readln;
end.

sorry netoks tebuvo pasirodo uzdavinys. buvo klaseje yra tiek ir tiek suolu, ar i klase tilps visi vaikai jei atejo du naujokai

sorry netoks tebuvo pasirodo uzdavinys. buvo klaseje yra tiek ir tiek suolu, ar i klase tilps visi vaikai jei atejo du naujokai

Na tai vietoj šito 20 pasirašysi kokį kintamąjį, kad ir b, o kiek yra tų suolų nuskaitysi pradžioj (Readln (b);)

Tai pala nesupratau, ar tu rasai kontrolini, ar uzdarbieciai raso rytoj kontrolini? :-)

Na tai vietoj šito 20 pasirašysi kokį kintamąjį, kad ir b, o kiek yra tų suolų nuskaitysi pradžioj (Readln (b);)

o kaip paskui nupasakot kiek mokiniu ? readln(a) kazkur dar tures but ?

Na tai pačioj pradžioj nuskaitysi keik mokinių, kiek suolų ir viskas, pagr. dalis - if'as jau parašytas :)