Даны n целых чисел. составить программу, которая выводит в ответ только те из них, которые кратны трём, но при этом оканчиваются только на 9. проверка n = 15 2 3 19 39 45 12 999 8 15 10 69 89 199 9 16 ответ 39 999 69 9
Ответы
var
n,a:Integer;
list: List<integer> := new List<integer>;
begin
Write('n=');
Read(n);
for var i:= 1 to n do
begin
Read(a);
if (a mod 3 = 0) and (a.ToString().EndsWith('9')) then
list.Add(a);
end;
WriteLn(list);
end.
Объяснение:
1)У тебя спрашивают b=1? У тебя дано b=3, значит b!=1. Если нет, то переходим к следующим указаниям: с=с-b=4-3=1, b=b+c=3+1(Потому что в предыдущем шаге мы дали новое значение для c, вернее произвели математическую операцию с ним. Возвращаемся(Слева линия) снова к логическому условию. Я честно говоря ХЗ, что они тут имели ввиду, но после того, что я описал c=1,но если мы продолжим проверку b=1, то c начнет принимать отрицательные значения. Цикл вышел, как мне кажется.
Теперь мне лень расписывать - держи фото/скрины
Не знаю, что у тебя за язык программирования, но я сделал тоже самое на Python, вроде результат отличатся не должен.
Объяснение:
1)У тебя спрашивают b=1? У тебя дано b=3, значит b!=1. Если нет, то переходим к следующим указаниям: с=с-b=4-3=1, b=b+c=3+1(Потому что в предыдущем шаге мы дали новое значение для c, вернее произвели математическую операцию с ним. Возвращаемся(Слева линия) снова к логическому условию. Я честно говоря ХЗ, что они тут имели ввиду, но после того, что я описал c=1,но если мы продолжим проверку b=1, то c начнет принимать отрицательные значения. Цикл вышел, как мне кажется.
Теперь мне лень расписывать - держи фото/скрины
Не знаю, что у тебя за язык программирования, но я сделал тоже самое на Python, вроде результат отличатся не должен.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
1. Найти длину окружности, если известна площадь круга. Алгоритмический язык
Написать свойства дома, карандаша, стола, дерева
Внимание! Если программа не работает, обновите версию!
begin
ReadSeqInteger(ReadInteger('n ='))
.Where(t->(t mod 3=0) and (Abs(t) mod 10=9)).Println
end.
Пример
n = 15
2 3 19 39 45 12 999 8 15 10 69 89 199 9 16
39 999 69 9