Регистрация
Сталкер027
20.06.2020 23:45
Информатика
Есть ответ 👍

Информатика под буквами д,ж "чёрный ящик" ​

191
361
Посмотреть ответы 1

Ответы на вопрос:

dashakomp2005
dashakomp2005
4,4(81 оценок)

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.

Популярно: Информатика