Program name;
var
a,b:integer;
begin
//Переменная B является сложным процентом за год
b:=0.24;
а:=10000*b;
a:=a+10000;
writeln('Остаток вклада за один год:',а);
а:=0;
b:=0,48;
a:=10000*b;
a:=a+10000;
writeln('Остаток за второй год:',a);
end.
1. Program kek;
var y.x,c,d:real;
begin
readln(c);
readln(x);
readln (d);
y:= c+d-sqrt(sqr(c)+sqr(d))/abs(x)+d
writeln ('y= ', y);
end.
2. Program lul;
var t,p,x,y:real;
begin
readln(x);
readln(p);
readln(y);
if p<0 then t:=x+y else t:=x-y;
write ('t= ', t);
end.
3. Извини не знаю, надеюсь хоть с задачами помог :D
Решение задачи показано в прилагаемой таблице.