Две лабы по Паскалю!

[Olga S]

Очень нужно написать 2 программы.
кенп 001.jpg

ропо 001.jpg

Во всех нужно сделать 3 вариант! Буду очень благодарна если кто - нибудь сделает =)

[Mad_Cat]

lab2)

if a>0.13456 then f:=sqrt(0.13456)+b-0.13456
else if abs(a)<=0.13456 then f:=exp(a)+0.13456*b
else f:=abs(a-b)/(0.13456+abs(a));

lab3)

i:=0;k:=0;
read(e);
a:=999999;
min:=9999999
while a<>e do begin
inc(i);
read(a);
if a<min then k:=i;
end;

[Olga S]

А все остальное такое же и остается?

[Olga S]

А можно написать понятнее для чайников? =)

[sig_GB]

Ахахха, а составитель методички явно с чувством юмора)))
Над комментарием

{А.Я.Умненькая, ст.группы .....}

посмеялся.