Решите, составив логическую модель, следующую . на международных соревнованиях по прыжкам в воду первые пять мест заняли спортсмены из германии, италии, китая, россии и украины. ещё до начала соревнований эксперты высказали свои предположения об их итогах: 1) первое место займёт спортсмен из китая, а спортсмен из украины будет третьим. 2) украина будет на последнем месте, а германия - на предпоследнем. 3) германия точно будет четвёртой, а первое место займёт китай. 4) россия будет первой, а италия - на втором месте. 5) нет, италия будет пятой, а победит германия. по окончании соревнований выяснилось, что каждый эксперт был прав только в одном утверждении. какие места в соревновании заняли участники?

  например, возьмем пятое суждение: утверждение италия-5 - правильно. в четвер-том суждении правильным вариантом есть решение россия-1. третье  суждение имеет такой правильный ответ - германия-4. во  первом суждении  правильный           ответ  -   украина-3. получилось: 1 место  - россия 2 место - китай 3 место - украина 4 место - германия 5 место - италия                 

1)

 

program pr1;

var i: integer; n,n2,n3: real;

begin

for i: =1 to 3 do begin

  writeln('daite tzifru'); readln(n);

  if n in [1..3] then writeln('prenodlejit intervalu') esle writeln('ne prenodlejit intervalu');

  end;

readln;

end.

 

2)

 

program p2;

var i,c,cod,summa: integer; s: string;

 

begin

  writeln('daite tzivfru'); readln(s);

  for i: =1 to length(s) do

    begin

        val(s[i],c,cod); summa: =summa+c;

    end;

str(summa,s);

if length(s)> 1 then writeln('summa ne yavljaetsya odnoznachnim chislom: ',s) else

  writeln(summa  yavljaetsya odnoznachnim chislom: ',s);

readln;

end.

решать надо примерно так:

создать массив целых чисел(к примеру на 20 элементов)

объявить две переменные(счётчик и b)

написать пользователю чтобы он ввёл значение для b

заполнить массив числами через цикл for и генератор псевдо-слуайных чисел(к примеру от 0 до 50)

всё в том же цикле сделать условие типа "если a[i] > b и если a[i] % 5 == 0(делится на 5 без остатка)", то увеличить счётчик на единицу, и после этого условия вывести значение элемента в строчку через пробел

ну и в конце вывести значение счётчика.

в паскале не разбираюсь, поэтому вот пример решения на c++

 

#include < iostream> using std: : cout; using std: : cin; using std: : endl; #include < cstdlib> using std: : rand; using std: : srand; #include < ctime> using std: : time; int main(){    int a[20], counter = 0, b;     srand(time(0));     cout < < "enter b: ";     cin > > b;     for(int i = 0; i < 20; i++)    {          a[i] = rand() % 51;           if(a[i] > b & & a[i] % 5 == 0)          {                counter++;           }          cout < < a[i] < < ' ';     }    cout < < "\n" < < counter < < " numbers" < < endl;     cin.get();     return 0; }