Составить программу в pascalabc за сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 1% своего веса от нормы предыдущего дня?

136

344

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

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

SashaZaisnik1

Информатика

4,8(90 оценок)

Var m: real; k: integer; begin m: =100; k: =0; while m> 80 do begin k: =k+1; m: =m*0.99; end; writeln('k = ',k); end. результат: k = 23

Kreizanova

Информатика

4,6(4 оценок)

program noname; uses crt; vara,b: array[1..1000] of integer; i,j,k: integer; beginclrscr; for i: =1 to 10 dobeginwrite('a[',i,']='); readln(a[i]); b[i]: =0; if a[i]< 0 then a[i]: =0; end; j: =1; for i: =1 to 10 doif a[i]< > 0 then begin b[j]: =a[i]; j: =j+1; end; for i: =1 to 10 dowrite(b[i],' '); end.