var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
Program ryazantsev;
var n,k,i,b,sum:integer;
begin
readln(n,k);
sum:=trunc((1+n)/2*n); //Преобразование типа real к int, trunc можно безопасно использовать, т.к. сумма n членов арифметической последовательности целых чисел - всегда целое число
if sum mod k <> 0 then writeln(0)
else begin
for i:=1 to k do begin
b:=1;
while b<n/k do begin
write(i+b-1, ' ', n-i-b+2, ' ');
b:=b+k
end;
writeln()
end
end;
end.
Пример входных данных, при которых программа выведет ноль: 6 2
И ещё, задачка должна быть оценена явно больше, чем на пять баллов)
Алгоритм:
<span>Перебирать элементы массива в цикле и присваивать им значения формулы. ВЫводить элемент ан экран без перевоад строки. Если элемент массива меньше 50 приплюсовывать к значению суммы и увеличивать счетчик. </span>
<span>Вывести на экран отношение суммы к значению счетчика.</span>