Регистрация
АртемкаЧеловечек
27.09.2020 19:36
Информатика
Есть ответ 👍

Какие форматы целого типа данных существуют в Pascal?

283
365
Посмотреть ответы 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.

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