Var a: integer;
begin
writeln('Введите порядковый номер: ');
readln(a);
case a of
1: writeln('Мать: 1.1.2017');
2: writeln('Отец: 2.2.2017');
3: writeln('Бабушка: 3.3.2017');
4: writeln('Дедушка: 4.4.2017');
else writeln('Неверно введен порядковый номер. Попробуйте еще раз.');
end;
end.
--------
Даты вводи те, которые тебе нужны. Порядковые номера также можно изменить по собственному усмотрению.
Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.
Алгоритм конец есть начало и конец
1) все идет по степеням двойки. Чтоб закодировать число 79, уже надо закодировать 128 чисел = 2^7 = 7 бит
2) 1.5 кб = 1.5*1024*8 бит = 12288 бит
12288 / 3072 = 4 бита на символ
значит мощность 2^4 = 16
3) 8*8=64 возможных варианта или мощность алфавита.
64 = 2^6 -> 6 бит на один ход
Ну так, как эта работа не контрольная, то получится так:
1. Для того, чтобы s было максимальным, надо чтобы рядом стоящие элементы отличались на минимальное значение. Так как по условию задачи массив содержит целочисленное значение, то минимальная разница = 1
2. Далее при каждом вхождении в цикл переменная s будет увеличиваться на 2:
i = 0 s = 17
i = 1 s = 19
i = 2 s = 21
i = 3 s = 23
i = 4 s = 25
i = 5 s = 27
i = 6 s = 29
i = 7 s = 31
i = 8 s = 33
i = 9 s = 35
Ответ: s = 35