Посчитать количество рабочих дней

@VadimBale · Регистрация: 10.06.2013

Author24 — интернет-сервис помощи студентам

В киоске работают Инна и Нина.Каждая работает N дней подряд,а потом столько же дней отдыхает.Сегодня работает Нина.Кто будет работать через V дней
2<N<5
3<V<14

@Nevermore_ · 08.08.2013, 18:51

Если считать день включительно ,в котором работает и Нина. То

Pascal

if v mod n=0 then
Writeline("Нина");
else
Writeline("Инна");

@ViktorNMax · 09.08.2013, 18:45

Pascal

var v,n:integer;
begin
 while true do begin
  write('работает n дней:'); readln(n);
  write('через v дней:'); readln(v);
  if ((v+1) div n+1) mod 2=0 then
   writeln('Инна')
  else
   writeln('Нина');
 end;
end.

Добавлено через 1 минуту

Pascal

var v,n:integer;
begin
  write('работает n дней:'); readln(n);
  write('через v дней:'); readln(v);
  if ((v+1) div n+1) mod 2=0 then
   writeln('Инна')
  else
   writeln('Нина');
  readln();
end.

Добавлено через 11 минут
Получается что выполняется вот так, чтобы не путались

Pascal

var v,n:integer;
begin
  write('работает n дней:'); readln(n);
  write('через v дней:'); readln(v);
  if (((v+1) div n)+1) mod 2=0 then
   writeln('Инна')
  else
   writeln('Нина');
  readln();
end.

@VadimBale 0 / 0 / 0 Регистрация: 10.06.2013 Сообщений: 36
		1
	Посчитать количество рабочих дней 08.08.2013, 18:06. Показов 1114. Ответов 2 Метки нет (Все метки) В киоске работают Инна и Нина.Каждая работает N дней подряд,а потом столько же дней отдыхает.Сегодня работает Нина.Кто будет работать через V дней 2<N<5 3<V<14 0

	09.08.2013, 18:45

Посчитать количество рабочих дней

Решение