Сегодня Али в мест
var c,n,i,k :integer;
a:array[1.15] of integer;
o:boolean;
begin
assign(input,"input.txt");reset(input);
assign(output,"output.txt");rewrite(output);
read(c,n);
for i:=1 to n do read(a[i]);
for i:=1 to n do k:=k+a[i];
if k>c then
begin
if k=c then
begin o=true; break end;
end
else o:=false;
write(o);
end.
Перестановкой из n чисел называется-последовательность чисел,где каждое число от 1 до n встречается ровно один раз.
var i,j,k,n,sum:integer;
a:array[1.100] of integer;
flag:boolean;
begin
flag:=false;
writeln('Input N');
read(n);
writeln('Input elements');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if (i<>j) and (j<>k) and (i<>k) then
if a[i]+a[j]+a[k]=0 then
f flag=false then
writeln('No');
end. uses crt;
var i,j,k,n,sum:integer;
a:array[1.100] of integer;
flag:boolean;
begin
flag:=false;
writeln('Input N');
read(n);
writeln('Input elements');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
if (i<>j) and (j<>k) and (i<>k) then
if a[i]+a[j]+a[k]=0 then
f flag=false then
writeln('No');
end.
Задача A МаксМин
Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности.
Формат входных данных
Первая строка входного файла содержит целое числоN (1 <= N <= 100000). В следующей строке задаются N положительных целых чисел, каждое из которых не превышает 100000.
Формат выходных данных
Выведите ответ к задаче.
var n,i:1.100000;
a,max,min:0.100000;
begin
assign(input,’a.in’); reset(input);
assign(output,’a.out’); rewrite(output);
readln(n);
max:=0; min:=100000;
for i:=1 to n do
begin
read(a);
if a<min then min:=a;
if a>max then max:=a;
end;
writeln(max-min);
end.
Задается положительное целое число N. Нужно вывести сумму его цифр.
Формат входных данных
Первая строка входного файла содержит ровно одно положительное число N, (1 <= N <= 10^100).
Формат выходных данных
Выведите ответ к задаче.
Пример. Подсчет суммы цифр числа
var n:string[1];
s,code:byte; a:0.9;
begin
assign(input,’b.in’); reset(input);
assign(output,’b.out’); rewrite(output);
s:=0;
while not eoln do
begin
read(n);
val(n,a,code);
s:=s+a;
end;
writeln(s);
end.
Задача C Найди в тексте!
Дается строка S. Нужно посчитать все числа, которые встречаются в тексте. Гарантируется, что каждое число, которое встречается в тексте положительное не больше 1000.
Формат входных данных
Первая строка входного файла содержит состоящую только из цифр и строчных букв английского алфавита строку S, (1 <= длина S <= 1000).
Формат выходных данных
Выведите ответ к задаче.
var f:string;
n1,n2,code1,code2,i,k:byte;
begin
assign(input,’c.in’); reset(input);
assign(output,’c.out’); rewrite(output);
read(f); f:=f+’.’; k:=0;
for i:=1 to length(f)-1 do
begin
val(f[i],n1,code1);
val(f[i+1],n2,code2);
if ((code1=0) and (code2=0)) or (code1*code2=1) then k:=k
else if (code1=0) and (code2=1) then inc(k);
end;
writeln(k);
end.
