1. Программа 10 раз прибавляет 9 к нулю =>
s = 9 * 10 = 90
Ответ: 90.
2. Программа 7 раз отнимает 7 от 50 =>
m = 50 - 7 * 7 = 1
Ответ: 1.
3. Программа прибавляет удвоенный индекс цикла (от 2 до 9) к нулю
s = 2 * (2 + 3 + 4 + 5 + 6 + 7 + 8 + 9) = 88
Ответ: 88.
4.
a = 30; b = 6
a = 30 / 2 * 6 = 15 * 6 = 90; b = 6
a > b = 90 > 6 = true =>
a = 90; c = 90 - 12 * 6 = 90 - 72 = 18
Ответ: 18.
5.
a = 5; c = 3
a = 5; c = 7 + 5 * 3 = 7 + 15 = 22
a = 22 / 2 * 5 = 11 * 5 = 55; c = 22
Ответ: 55.
Правильный ответ Б потому как 500кбайт это 4096000 бит, и если поделить выйедт 32 сек
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
И ещё, задачка должна быть оценена явно больше, чем на пять баллов)
Клавиатура по ощущения гладкая.Вода на ощущение жидкая.