Числа, которые удолетворяют этому условию являются високосными годами (как уже отметили ранее это числа, которые делятся на 4, но не делятся на 100 или числа, которые делятся на 400)

0 0

4 года назад

1.Найти минимальный элемент последовательности. 2.Определить, сколько раз встречается максимальный элемент в последовательности.

mars1988 [21]

program p1;

uses Crt;

var

i, n, m, min: integer;

begin

ClrScr;

Write('Длина последовательности: ');

Readln(n);

Read(min);

for i := 2 to n do

begin

Read(m);

if m < min then

min := m;

end;

Writeln(min);

ReadKey;

end.

******************************************

program p2;

uses Crt;

var

i, n, m, max, k: integer;

begin

ClrScr;

Write('Длина последовательности: ');

Readln(n);

Read(max);

k := 1;

for i := 2 to n do

begin

Read(m);

if m > max then

begin

max := m;

k := 1;

end

else if m = max then

k := k + 1;

end;

Writeln(k);

ReadKey;

end.

0 0

3 года назад

Помогите перевести В Карточке вам нужно перевести числа из двоичной системы счисления в десятичную и отгадать ответ

paps

Какие числа надо перевести

0 0

4 года назад