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
begin
n := 0;
s := 301;
while s > 0 do
begin
s := s - 10;
n := n + 3
end;
write(n)
end.
2. Составить программу определения суммы цифр произвольного числа. Например, для числа 2341 ответ будет 10
More Questions From This User See All