Question

1. Определите число, которое будет напечатано в результате выполнения программы:
var n, s: integer;
begin
  n := 0;
  s := 301;
  while s > 0 do
  begin
    s := s - 10;
    n := n + 3
  end;
  write(n)
end.
2. Составить программу определения суммы цифр произвольного числа. Например, для числа 2341 ответ будет 10

Answer 1

Ответ:

1. ответ 93

2. программа на фото