Var m,k,r:integer;
procedure buy(var m,k,r:integer);
begin;
if k<=m then
begin;
m:=m-k;
inc(r);
buy(m,k,r);
end;
end;
begin;
write('Введите сколько у Пети рублей:');
readln(m);
write('Введите стоимость мороженого:');
readln(k);
buy(m,k,r);
write('Всего:',r);
<span>end.</span>
1) 64 ⇒ 01000000
2) 58 ⇒ 00111010
3) 72 ⇒ 01001000
4) 96 ⇒ 01100000
#include <stdio.h>
int main () {
double q, t;
int i, n;
printf ("Q, T, N? "); scanf ("%lf %lf %d", &q, &t, &n);
i = 1;
while (i <= n) {
q -= t;
printf ("N = %d, Q = %lf\n", i, q);
i++;
}
return 0;
<span>}</span>