It is necessary to perform the task in pascal, from 1 to 100 output cisl, skipping one digit 2,4,6,8 and so on

Closed due to the fact that the issue is too general for the participants of Shamov , deivan_ , VisioN , katso , andreycha 17 Apr '15 at 9:48 .

Please correct the question so that it describes the specific problem with sufficient detail to determine the appropriate answer. Do not ask a few questions at once. See “How to ask a good question?” For clarification. If the question can be reformulated according to the rules set out in the certificate , edit it .

  • one
    no one wants to think: (offensively, the world is not moving in the right direction. - Artem
  • @Daniyar, According to the rules of the forum, questions should not be limited to solving or completing student assignments. Please clarify what you have done yourself and what did not work out. - Nicolas Chabanovsky ♦

2 answers 2

And even easier:

Var i: Byte; begin For i:=1 To 50 Do WriteLn(i*2); WriteLn; WriteLn('Press ENTER!!!'); ReadLn; end.

It is not clear one thing: why with such simple puzzles on the forum to climb? To think what is too lazy?

  • one
    Well done. :)> ReadLn; ;) - Artem
  • I wrote on Delphi, but my fingers still remember this evil cycle, I hope that the brain will be able to react in time and stop its writing. - DelphiM0ZG

That should work:

 program lll; var i; begin i = 0; while(i<=100) begin i := i+2; writeln(i); end; end.