Составить программу по basic ​ 15

PauD PauD    2   04.05.2019 14:02    1

Ответы
Strangeeo Strangeeo  09.06.2020 09:15

const p0 =1.29;

z=12500;

var p,h:real;

begin

h:=0

repeat

p:=p0*exp (-h*z)

writeln ('h=',p:4:2);

h:=h+100;

until (h>100);

end

все^_^(могу ошибится )

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика