var
a,k,s:integer;
begin
repeat
write (' = > ');readln(a);
if a<0 then k:=k+1 else s:=s+a;
until a=0;
writeln ('Summa: ',s);
writeln ('Kol-vo: ',k);
readln;
end.
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
Program msdos;
uses crt;
var
r,sum: real;
neg:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
neg:=0;
sum:=0;
r:=1;
writeln('Введите ненулевое число');
writeln('(или введите 0 для конца последовательности) ');
while r<>0 do
begin
write('Ввод:');
readln (r);
if r<0 then neg:=neg+1;
if r>0 then sum:=sum+r;
end;
writeln();
writeln('Количество отрицательных чисел ',neg);
writeln('Сумма положительных чисел ',sum);
end.