Anastasiya
?>

Чему будет равно значение переменной n после выполнения инструкций:n:=0;while n<5 don:=n+1;2. Что будет выводиться на экран во время выполнения инструкций:n:=1;while n<=10 dobeginx:=n*n;wtiteln(n, ’ ’, x);n:=n+1;end;3. Игра «Угадай число» заканчивается, если количество попыток достигло 10. Напишите условие завершения игрыc:=0; //число попытокwhile условие dobeginwrite (Ваш вариант’);readln(m);c:=c+1;end;4. Определить значение переменной s после выполнения операторов:а) s:=0;i:=0;while i<5 dobegini:=i+1end;s:=s+1/i;5. Найти ошибки в следующем фрагменте программы:a) p:=0;while i dobeginp:=p*i;end;б) s:=0;while s<10 dobegins:=s+i;i:=i+k;end;6. Даны N вещественных чисел. Найти среднее арифметическое положительных чисел.7. Вычислить произведение первых 5 нечетных чисел.б) s:=0;i:=0;while i<5 dobegini:=i+1s:=s+1/i;end;б) s:=0;i:=0;while i<5 dobegini:=i+1s:=s+1/i;end;​

Информатика

Ответы

kot271104
Запишем таблицу распределения мест по купе:
Купе Места
1          1-4,53,54
2         5-8,51,52
3         9-12,49,50
4      13-16,47,48
5      17-20,45,46
6      21-24,43,44
7      25-28,41,42
8      29-32,39,40
9      33-36,37,38
Установим связь номера места с номером купе. Предлагается следующий (конечно же, не единственный) вариант:
\begin {cases} (n-1) \div 4 +1, \quad n=1,2,...,36 \\ (54-n) \div 2 \right \rceil +1, \quad n=37,38,...,54 \end {cases}
Здесь знаком ÷ обозначена операция целочисленного деления.

Теперь можно написать программу.  Язык программирования в задании не указан, поэтому выбран язык свободно распространяемой для целей обучения системы программирования PascalABC.Net

var
  n:integer;
begin
  Write('Укажите номер места: '); Read(n);
  Write('Место располагается в купе №');
  if n<=36 then Write((n-1) div 4 + 1)
  else Write((54-n) div 2 + 1)
end.

Тестовое решение:
Укажите номер места: 18
Место располагается в купе №5

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Чему будет равно значение переменной n после выполнения инструкций:n:=0;while n<5 don:=n+1;2. Что будет выводиться на экран во время выполнения инструкций:n:=1;while n<=10 dobeginx:=n*n;wtiteln(n, ’ ’, x);n:=n+1;end;3. Игра «Угадай число» заканчивается, если количество попыток достигло 10. Напишите условие завершения игрыc:=0; //число попытокwhile условие dobeginwrite (Ваш вариант’);readln(m);c:=c+1;end;4. Определить значение переменной s после выполнения операторов:а) s:=0;i:=0;while i<5 dobegini:=i+1end;s:=s+1/i;5. Найти ошибки в следующем фрагменте программы:a) p:=0;while i dobeginp:=p*i;end;б) s:=0;while s<10 dobegins:=s+i;i:=i+k;end;6. Даны N вещественных чисел. Найти среднее арифметическое положительных чисел.7. Вычислить произведение первых 5 нечетных чисел.б) s:=0;i:=0;while i<5 dobegini:=i+1s:=s+1/i;end;б) s:=0;i:=0;while i<5 dobegini:=i+1s:=s+1/i;end;​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

mrFuz
татьяна1245
Lavka2017
vova00831
Иванов1813
Стуканова УЧРЕЖДЕНИЕ1877
Абумислимовна_кооператив585
kosharikclub
gsktae7
Shamsulo
keti0290103
delo1005
Васильевич Валерьевна
Yuliya mikhail
gernovoy