Паскаль! ! с циклом while (без массива) 1. известен - вопрос №62706211 от tim20053 28.10.2022 03:07

Question

Информатика: Паскаль! ! с циклом while (без массива) 1. известен возраст всех учеников класса. определить самого старшего, если признак окончания ввода - 0. 2.дана последовательность целых чисел, признак окончания которой - 0. найти сумму положительных элементов, стоящих на нечетных местах. (что значит стоящих на нечетных местах

tim20053 · Answer

1)var a,b:integer;begin a:=-1; while a 0 do begin read(a); if a b then b :=a; end; write( возраст самого старшего ,b);end.2)var a,b,c:integer;begin a:=-1; while a 0 do begin read(a); c:=c+1; if (a 0)and(c mod 2=1) then b :=a; end; write( сумма положительных элементов , стоящих на нечетных местах равна ,b);end....