Begin S:=0; Repeat Read(A); if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A; Until A = 0; WriteLn('S = ',S); End.
Теперь объяснение каждой строки:
Var S:longint; i:integer; A:byte; // В эту переменную будет вводится число с клавиатуры. Тип Byte может принимать значения от 0 до 255. Поэтому его как раз хватит.
Begin S:=0; // Тут будет храниться сумма, поэтому переменную следует сперва обнулить.
Repeat // далее начинается цикл Read(A); // эта команда каждый раз считывает с клавы число, и записывает его в переменную A.
if (A mod 2 <> 0)and(A mod 7 = 0) then S:=S+A; //тут проверяется 2 условия, и если они выполняются - к переменной S прибавляется значение переменной А 1 условие: число нечётно, то есть остаток от деления его на 2 не равен нулю (A mod 2 <>0) 2 условие: Число кратно 7, то есть делится без остатка на 7, то есть остаток от деления равен нулю (A mod 7 = 0)
Until A = 0; // Цикл повторяется до тех пор, пока введённое с клавы число не будет равно нулю (A = 0)
WriteLn('S = ',S); // Тут выводится искомая сумма End.
№ Буква Имя 1 Аа а 2 Бб бэ 3 Вв вэ 4 Гг гэ 5 Дд дэ 6 Ее е 7 Ёё ё 8 Жж жэ 9 Зз зэ 10 Ии и 11 Йй и краткое 12 Кк ка 13 Лл эль (или эл) 14 Мм эм 15 Нн эн 16 Оо о 17 Пп пэ 18 Рр эр 19 Сс эс 20 Тт тэ 21 Уу у 22 Фф эф 23 Хх ха 24 Цц цэ 25 Чч че 26 Шш ша 27 Щщ ща 28 Ъъ твёрдый знак 29 Ыы ы 30 Ьь мягкий знак 31 Ээ э (э оборотное) 32 Юю ю 33 Яя
подбирай. У тебя всё получится
Так как каждая буква в слове заменена её порядковым номером в алфавите, а зашифрованная запись состоит только из цифр “1” и “2”, то в слове могут встречаться только буквы “а”, “б”, “й”, “к”, “у” и “ф”. Эти буквы имеют порядковые номера 1, 2, 11, 12, 21 и 22 соответственно.
Первые три цифры “222”. Слово не может начинаться с “ббб”, “бф” и “фб”. Значит, первая буква – “ф”, а вторая – “у” (номера 22 и 21 соответственно) . Следующие две двойки - это буква “ф”, так как нет в русском языке слов, начинающихся с “фубб” или с “фубу”. Следующая буква – “а”, так как после согласной не может стоять “й”. Рассуждая далее, получим слово “фуфайка”.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
