Показать Составить таблицу и определить, кем был каждый игрок
в финал регионального турнира по шишком вышли Коля, Ваня, Максим Яросла, Денис и Марк. Все финалисты
оказались представителями абсолютно разных профессий капитан, повар, программист, строитель, логист и юрист.
Определи профессию каждого игрока, если известно, что:
1) в первом туре программист выиграл у коли, капитан – у Вани, а логист - у Ярослава,
2 во втором туре повар выиграл у Ванн,
3) в третьем и четвертом турая Ярослав учувствовать не смог, поэтому свободными от игры оказались повар и юрист,
4) е четвертом туре капитан выиграл у марка,
я турнир выиграли программист и капитан, ә уже всех выступил Денис
Я тебе дал,а ты сам подумай)
Объяснение:
Repeat — это цикл с пост условием то есть в первый раз всё равно выполнится. Теперь разберём цикл, он будет выполнять это действие
(p:=p*0.1) пока (p) не станет меньше 0.1 , теперь работаем в теле цикла, (p) изначально равен двум по этому получаем p:=1*0,1; получаем p:=0,1 проверяем условие 0,1<0,1 нет повторяем второй раз цикл, теперь p:=0,1 а не 1 как было в первый раз p:=0,1*0,1 p:=0,01 проверяем условие
0,01<0,1 да меньше цикл прерывается и (p) остаётся равным 0,01
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n
DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING
FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i
Код валидный, если допустил ошибку во время переписывания - сообщите.