1)У тебя спрашивают b=1? У тебя дано b=3, значит b!=1. Если нет, то переходим к следующим указаниям: с=с-b=4-3=1, b=b+c=3+1(Потому что в предыдущем шаге мы дали новое значение для c, вернее произвели математическую операцию с ним. Возвращаемся(Слева линия) снова к логическому условию. Я честно говоря ХЗ, что они тут имели ввиду, но после того, что я описал c=1,но если мы продолжим проверку b=1, то c начнет принимать отрицательные значения. Цикл вышел, как мне кажется.
Теперь мне лень расписывать - держи фото/скрины
Не знаю, что у тебя за язык программирования, но я сделал тоже самое на Python, вроде результат отличатся не должен.
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Вводите данные:',n); a.Println; var s:=a.Where(x->(x>9) and (x<100) and (x mod 10=7)); if s.Count=0 then Writeln('Таких чисел нет') else Writeln(s.Sum) end.
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ReadArrInteger('Вводите данные:',n); a.Println; Writeln('Четных чисел ',a.Where(x->x.IsEven).Count); Writeln('Нечетных чисел ',a.Where(x->x.IsOdd).Count); end.
Объяснение:
1)У тебя спрашивают b=1? У тебя дано b=3, значит b!=1. Если нет, то переходим к следующим указаниям: с=с-b=4-3=1, b=b+c=3+1(Потому что в предыдущем шаге мы дали новое значение для c, вернее произвели математическую операцию с ним. Возвращаемся(Слева линия) снова к логическому условию. Я честно говоря ХЗ, что они тут имели ввиду, но после того, что я описал c=1,но если мы продолжим проверку b=1, то c начнет принимать отрицательные значения. Цикл вышел, как мне кажется.
Теперь мне лень расписывать - держи фото/скрины
Не знаю, что у тебя за язык программирования, но я сделал тоже самое на Python, вроде результат отличатся не должен.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите данные:',n); a.Println;
var s:=a.Where(x->(x>9) and (x<100) and (x mod 10=7));
if s.Count=0 then Writeln('Таких чисел нет')
else Writeln(s.Sum)
end.
Пример
n= 5
Вводите данные: 45 -38 27 -17 47
45 -38 27 -17 47
74
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
function Sod(n:integer):integer;
begin
var s:=abs(n).ToString;
Result:=s.Select(c->c.ToDigit).Sum
end;
begin
var a:=ArrRandom(ReadInteger('n='),-999,999); a.Println;
a:=a.Select(x->Sod(x)).ToArray; a.Println
end.
Пример
n= 10
-252 814 -239 -157 792 -223 697 -482 616 -675
9 13 14 13 18 7 22 14 13 18
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите данные:',n); a.Println;
Writeln('Четных чисел ',a.Where(x->x.IsEven).Count);
Writeln('Нечетных чисел ',a.Where(x->x.IsOdd).Count);
end.
Пример
n= 16
Вводите данные: 34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
34 -345 21321 643 1 0 325 2312 236 -324 -3242 7 12 7 12 50
Четных чисел 9
Нечетных чисел 7