Uses crt;var a,b,c,s:real;beginclrscr;write('Введите сумму:');readln(c);write('Введите проценты:');readln(a);write('Введите количество лет:');readln(b);s:=(c+b*((a*100)/c));Writeln('Вы получите:',s);end.
Ответ:
выбери то что понравилось ахаэхахахахахахаха
Это всё деревья)). Просто де
Uses GraphABC;procedure P1(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x-15,y+100);line(x,y+70,x+15,y+100);end;procedure P2(x,y:integer);begincircle(x,y,10);floodfill(x,y,clyellow);ellipse(x-15,y+10,x+15,y+70);floodfill(x,y+20,clyellow);line(x,y+70,x,y+100);end;var x,y,i:integer;beginx:=40;y:=100;i:=1;repeat LockDrawing; ClearWindow(clgreen); setpenwidth(3); if odd(i) then P1(x,y) else P2(x,y); setpenwidth(10); line(0,y+100,windowwidth,y+100); Redraw; Sleep(500); x:=x+5; i:=i+1;until x>=windowwidth-20;<span>end.</span>
Begin
var a := ArrRandom(20, 0, 100);
a.Println();
writeln(a.Where(x -> x mod 15 = 0).Count());
end.