Палочки Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мегабайт
Дети в лагере очень любят играть в игру «Палочки».
Правила игры следующие:
У двух игроков есть n палочек. Каждый по очереди берет по fi палочек (количество палочек с
каждым ходом может быть разное). Игра длится до тех пор, пока есть палочки. Выигрывает тот
игрок, после которого не осталось палочек.
Требуется узнать номер игрока, который выиграет.
Формат входных данных
В единственной строке вводятся числа fi (1 ⩽ fi), сумма всех fi равна 10.
Формат выходных данных
Необходимо вывести 1, если победит первый игрок и 2, если победит второй.
Примеры

стандартный ввод стандартный вывод

3 3 3 1 2
3 2 1 1 3 1

👇

Открыть все ответы

Ответ:

leraleralera13

13.03.2022

// Известно, что Х кг шоколадных конфет стоит А рублей,
// а Y кг ирисок стоит В рублей. Определить, сколько стоит 1 кг
// шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

var x,y,a,b: real;
begin
writeln('Введите массу шоколадных конфет');
readln (x);
writeln('Введите сумму потраченную на покупку шоколадных конфет');
readln (a);
writeln('Введите массу ирисок');
readln (y);
writeln('Введите сумму потраченную на покупку ирисок');
readln (b);
writeln ('килограмм шоколадных конфет стоит ',(a/x):0:2,' рублей');//(a/x):0:2 - округряем до сотых)
writeln ('килограмм ирисок стоит ',(b/y):0:2,' рублей');
Writeln ('Шоколадные конфеты дороже ирисок в ',(a/x)/(b/y):0:1,' раз');// - округляем результат до десятых
end.

//Дана длина ребра куба а. Найти его объем и площадь поверхности

Var a: real;
begin
writeln ('введите длину ребра куба');
readln (a);
while a<0 do
    begin
      writeln ('вы ввели не допустимое значение попробуйте еще раз');
      writeln ('введите длину ребра куба');
      readln (a);
    end;
writeln ('площадь куба равна ',a*a*6);
writeln ('объем куба равен ',a*a*a);
end.

4,8(17 оценок)

Ответ: