1. Составьте программу к задаче: «На яблоне было х яблок. В первый день с яблони упало а яблок. Каждый следующий день опадало в 2 раза больше яблок, чем в предыдущий. Сколько яблок останется через k дней?».
Ответы
Ответ дал:
0
паскаль:
#################################################################
var
x, k, a, i: integer;
begin
writeln('Введите количество яблок');
readln(x);
writeln('Введите количество дней');
readln(k);
writeln('Введите количество яблок, которое упало в 1 день');
readln(a);
for i:=1 to k do begin
x:=x-a;
a:=a*2;
end;
writeln(inttostr(x));
sleep(3000);
end.
#################################################################
var
x, k, a, i: integer;
begin
writeln('Введите количество яблок');
readln(x);
writeln('Введите количество дней');
readln(k);
writeln('Введите количество яблок, которое упало в 1 день');
readln(a);
for i:=1 to k do begin
x:=x-a;
a:=a*2;
end;
writeln(inttostr(x));
sleep(3000);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад