Var a,k:integer;
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
<span>end.</span>
Var s,i:integer;
a:array[1..100] of integer;
begin
for i:=1 to 12 do begin
readln(a[i]);
end;
s:=0;
for i:=1 to 12 do begin
s:=s+a[i];
end;
writeln(s);
end.
Поскольку вопрос был не о полном проекте, то буду говорить лишь о фрагментах кода.
В TextBox1 вводим текст вида "12:34" (для упрощения, без секунд; при необходимости их можно добавить, это не существенно)
Включаем будильник кнопкой Button1.
Код на скане.
Это то, что ты хотел?
Программа без шапки
Read(a);
Read(b);
C:=a*b;
If c<0 then
Begin
c:=c*2;
Writeln(c);
End;
Else
C:=c*1.5;
Writeln(c);
End.
------------
Реестр символов не учитывать
<span>Не знаю что вы имели ввиду вот перевод чисел из двоичной системы, может он ва поможет разобраться в этом вопросе.</span>
<span>а) 1001010 = 2</span>6<span>*1 + 2</span>5<span>*0 + 2</span>4<span>*0 + 2</span>3<span>*1 + 2</span>2<span>*0 + 2</span>1<span>*1 + 2</span>0<span>*0 = 64 + 0 + 0 + 8 + 0 + 2 + 0 = 74</span>
<span><span>б) 10000000111 = 2</span>10<span>*1 + 2</span>9<span>*0 + 2</span>8<span>*0 + 2</span>7<span>*0 + 2</span>6<span>*0 + 2</span>5<span>*0 + 2</span>4<span>*0 + 2</span>3<span>*0 + 2</span>2<span>*1 + 2</span>1<span>*1 + 2</span>0<span>*1 = 1024 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 4 + 2 + 1 = 1031</span></span>