Var a:array[1..1000] of integer;
<span>sum,n,i:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>writeln('Введите количество чисел'); </span>
<span>read(n); </span>
<span>writeln('Введите числа'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if (a[i] mod 7=0) and (a[i] mod 10=4)then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма элементов кратных 7 и оканчиваюшихся на 4 = ',sum); </span>
<span>end.</span>
Всего 91 (50 отриц Т+0= 40 полож Т) измерений температуры. Для двоичного кодирования нужно 128 бит, значит на один показатель нужно 7 бит
const
n = 10; //Количество чисел, которое нужно ввести
var
a: array [1..n] of 10..99; {Массив двузначных чисел, которые вводятся с клавиатуры}
number, i: integer; //number - количество чисел
begin
number:= 0; //Обнуляем счетчик
for i:= 1 to n do //Вводим n двузначных чисел
begin
writeln('Введите двузначное число');
readln(a[i]);
end;
write('Числа, которые делятся на 4,но не делятся на 6: ');
for i:= 1 to n do {Распечатываем числа, которые делятся на 4, но не делятся на 6}
if (a[i] mod 4 = 0) and (a[i] mod 6 <>0) then {если число делится на 4 и не делится на 6, прибавляем к счетчику 1}
begin
write(a[i], ' ');
number:= number + 1;
end;
writeln;
writeln('Количество чисел, которые делятся на 4, но не делятся на 6: ', number);
end.
Var d,m,dr: string;
<span> mes: array[1..12] of string=('января','февраля','марта',
</span><span> 'апреля','мая','июня','июля','августа','сентября',
</span><span> 'октября','ноября','декабря');
</span><span>begin
</span><span> write('дата рождения в формате dd.mm.gg: ');
</span><span> readln(dr);
</span><span> d:=copy(dr,1,2);
</span><span> m:=copy(dr,4,2);
</span><span> writeln(StrToInt(d),' ',mes[StrToInt(m)]);
</span><span>end.
</span>
дата рождения в формате dd.mm.gg : 05.08.2001
<span>5 августа
</span>