1- думаю г :D
2- г? что ли я не видела ничего такого где можно было бы редактировать... там просто записываешь и все вроде :D сам проверь)
Ответ:
Windows
Объяснение:
Вроде он, ответ должен состовлять не менее 20слов, бесит(
var a, n, b:integer;
begin
for a := 170 to 180 do;
readln(n);
b := a mod n;
writeln('Ответ:', b);
end.
(Не уверен, но возможно правильно :) )
Вводим числа a и b
переменную k обнуляем
если а больше или равно 0, то инкрементируем k
если нет, то ничего не делаем.
переходим в обоих случаях к следующему циклу
если b больше или равно нулю, то инкрементируем k
если нет то нет.
результат выводим (k)
это наматывание счётчика k