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
И ещё, задачка должна быть оценена явно больше, чем на пять баллов)
Задание 3
З 9
И 10
М 14
А 1
1) ихрпщтансснчси - АЛГОРИТМИЗАЦИЯ
2) ушърезаёщ - КОМПЬЮТЕР
3) счаёщчту - ИНТЕРНЕТ
Задание 4
Б 2
А 1
Н 15
К 12
ЖПЮЩЕБ - еопнга (чтобы это не значило)
Они злоумышленники. Их цель навредить человеку или какой нибудь компании,нанеся им материальные убытки в виде поломанной техники или обесценивания товара
Вот эти числа:
10001011 - 139
10111000 - 184
10011011 -155
10110100 - 180
Но, скорее всего, единица в последнем разряде указывает на знак, тогда:
<span>0001011 - 11
</span><span>0111000 - 56
</span><span>0011011 - 27
</span><span>0110100 - 52
</span>Соответственно, только первое число меньше 16
Например так:
#!/usr/bin/perl
for(1..12){@arr[$_]=int(rand(100))};
print "@arr\n";
print "Write first element:"; chomp($n1=<>);
print "Write second element:"; chomp($n2=<>);
(@arr[$n1], @arr[$n2])=(@arr[$n2], @arr[$n1]);
print "\
[email protected]\n"
Только по хорошему нужна проверка введенных значений еще.