Напишите программу к схеме

Question

Напишите программу к схеме

---

Comments

Так а что вывести то надо? Например если всё-таки там будет "нет"?

---

Я полагаю, если да (a:=a+1), то выводим переменную a, но если нет - то выводим переменную b. Верно?

---

да

---

Тогда моё решение правильно.

Answer 1

Program p1; 

Var n,k,a,b: integer; 

Begin 

Writeln('Введите n: '); 
Read(n); 
Writeln('Введите k: '); 
Read(k); 
a:= n div k; 
b:= n mod k; 

if b<>0 then 

writeln(a+1) 
else 
Writeln(b); 
End.