Составить программу для решения задачи на языке Паскаля:
Объём озера уменьшается на 7%. Высохнет ли озеро на 3/4 через 1 год (кол-во дней в году взять равным 365)
var i,n :integer;
x:real;
begin
x:=1;
n:=365;
for i:=1 to n do
x:=x*0.93;
if x<0.25
then writeln ('visohnet na 3/4 ')
else writeln ('ne visohnet na 3/4 ');
end.
Ну во первых условие не полное, уменьшается на 7% за какой период времени? Во вторых что именно не выходит, конкретно по вопросу могу помочь, а писать программы тем кому лень я не собираюсь
Блез Паскаль — французский учёный.
Значит его родной язык французский.
Извиняйте, не владеем-с 
⇢