Прилагательные мужского рода имеют в именительном падеже окончания -ой/-ый(ий); Прилагательные женского рода имеют в предложном падеже окончания -ой/-ей. Прилагательные мужского рода имеют в дательном падеже окончания -ому/-ему; Прилагательные среднего рода имеют в винительном падеже окончания -ое/-ее; Прилагательные женского рода имеют в именительном падеже окончания -ая/-яя; Прилагательные среднего рода имеют в родительном падеже окончания ого/-его; Прилагательные мужского рода имеют в творительном падеже окончания -ым/-им; Прилагательные женского рода имеют в дательном падеже окончания -ой/-ей; Прилагательные среднего рода имеют в именительном падеже окончания -ое/-ее; Прилагательные мужского рода имеют в предложном падеже окончания -ом/-ем. Прилагательные среднего рода имеют в творительном падеже окончания -ым/-им; Прилагательные женского рода имеют в родительном падеже окончания -ой/-ей: Прилагательные мужского рода имеют в винительном падеже окончания -ой/-ый(ий); Прилагательные среднего рода имеют в предложном падеже окончания -ом/-ем; Прилагательные женского рода имеют в винительном падеже окончания -ую/-юю; Прилагательные женского рода имеют в творительном падеже окончания -ой/-ей; Прилагательные среднего рода имеют в дательном падеже окончания -ому/-ему; Прилагательные мужского рода имеют в родительном падеже окончания -ого/-его.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Каковы особенности записи и работы цикла for?
Автор: voropayelena26
1/4 Мбайта =Сколько Кбайт
Автор: Pgr100
Как вы представляете использование 3D -редактора в своей жизни?
Автор: Равиль_Евгеньевич1808
с информатикойЗаранее благодарю за полный ответ)
Автор: kortikov77
Var
S:longint;
i:integer;
A:byte;
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.