Составить блок-схему и написать программу Паскаль.
"Мужик и чёрт".
помогите, пожааалуйста!
"Мужик и чёрт".
помогите, пожааалуйста!
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
writeln('Введите капитал мужика');
readln(b);
writeln('Введите капитал черта');
readln(a);
writeln('Введите дань');
readln(c);
x:=0;
repeat
b:=b*2;
b:=b-c;
a:=a-b;
a:=a+c;
x:=x+1;
until (b<0) or (c<0);
writeln(x);
end.