Втербо паскале через while вывести на экран наименьшие четные числа не превышающие заданного числа. число вводится с клавиатуры.

  видимо имеется ввиду что сумма этих чётных чисел не должна превышать r

 

 

 

  program chisla;

uses crt;

var i,r: integer ;

begin

      clrscr;

      write (' введите r: ');

      readln(r);

      writeln;

      i: =0;  

 

      while (i< =r) do          begin              inc(i,2);

            if (i< =r) then   write(i: 3);

 

          end;

 

      readkey;

end.

 

 

 

 

  отличие от многих людей, я отношусь к компьютеру позитивно. это — величайшее изобретение человечества! люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики.

еще можно общаться с людьми у которых самые разные увлечения, которые живут хоть на другом конце планеты. не нужно ограничиваться только теми людьми, кто живет в соседнем дворе, и навязывать себе их хобби.

я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер.

часто компьютер сравнивают с телевизором и говорят, что они оба крадут у человека время. но у меня другое мнение. да, долго сидеть перед компьютером вредно для здоровья и для личности, потому что человек не двигается, портит зрение и не общается с живыми людьми. но в чем виноват компьютер? ! человек сам крадет у себя время, а не машина.

телевизор не полезен, потому что перед ним человек сидит пассивно. сидит, пультом клацает, а ему показывают картинку. с компьютером другое дело! с ним все время надо действовать! даже читать и писать все время приходится. так даже интереснее, чем торчать у телевизора.

а еще компьютер заставляет выбирать самому то, что действительно нужно. если бы люди не учились выбирать, то перед монитором проводили бы всю жизнь.

компьютер в моей жизни занимает важное место, но я могу подолгу обходиться и без него. просто надо все время помнить, что компьютер изобрели для того, чтобы облегчить жизнь, а не заменить ее. и чтобы расширить возможности человека, а не сузить их.

Pascalabc.net программа сработает некорректно если слова будут разделены                           несколькими       пробелами или строка будет заканчиваться пробелом const      c = ' ';   var    s : string;     k,p : integer;       begin  writeln ('введите строку');   readln (s);   k : = -1;   p : = 1;   if (s < > '') and (s < > ' ') then    begin    while p < > 0 do      begin        k : = k +1;         p : = posex (c,s,p+1);         end;     writeln (k+1,' word')      end    else    writeln ('error string');   end.