Регистрация
Rock2015
28.11.2021 08:57
Информатика
Есть ответ 👍

1. составьте программу к : «на яблоне было х яблок. в первый день с яблони упало а яблок. каждый следующий день опадало в 2 раза больше яблок, чем в предыдущий. сколько яблок останется через k дней? ».

217
350
Посмотреть ответы 2

Ответы на вопрос:

looool6
looool6
4,8(2 оценок)
Паскаль: ################################################################# 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.
azs194karelin
azs194karelin
4,4(48 оценок)
Var a,b: real; begin readln(a,b); if a=b then writeln('они равны') else if a> b then writeln(a,'  больше  '  ,b) else writeln(b,'   больше  '  ,a); end.

Популярно: Информатика