Дано: writeln (s: 6: 2); если s=112, 12664, то на экране появится работа по программе паскаль.

Что это?

1)один из древнейших культурных злаков,выращиваемый в юго-востойчной азии?

2)что означает слово window с английского?

3)...-это белая смерть?

4)неглубокий надрез на поверхности обрабатываемого материала, сделанный стамеской, резцом, сверлом, пилой или другим инструментом?

5)что маслом не испортишь?

6)транспортное средство,предназначеное для движения по рельсам?

 

                   РИС

                        ОКНО

                         СОЛЬ

                   ВЕТКА

                       КАША

                         ВАГОН

Что значит из строки? Формулируйте лучше. Можно делать через обычный массив, примерно так

var

  a : array [1..100] of integer; // Вместо 100 - максимальное количество чисел

  i, n : integer;

begin

  //Если колчисетво чисел вводится, то этот код
read (n);

for i := 1 to n do

  read (a[i]);

//Если же по уловию задачи задана только строка чисел, то использовать следующий  

//код

while not eoln (input) do

begin

  n := n + 1;

  read (a[n]);

end;

//Далее для обоих вариантов.

for i := 1 to n do

  if a[i] mod 2 = 0 then write (a[i], ' '); //Выведет четные, для нечетных заменить = 0 на = 1 

end.