В процессе лечебного голодания вес пациента снизился с 96 до 70 кг. Было установлено что ежедневная потеря веса прямо пропорциональна весу тела. Определить вес пациента на k-ый день — Pascal(Паскаль)

uses crt;
var v,p:real;
    k,i:byte;
begin
clrscr;
v:=96;
p:=26/30;
write('Введите номер дня от 1 до 30 k=');
readln(k);
for i:=1 to k do
v:=v-p;
write('V=',v:0:2);
readln
end.

Похожие записи/страницы:

Leave a Comment

78 − = 73